ThisWorkbook.Path ne fonctionne pas

Anonyme
2023-05-25T07:45:27+00:00

Bonjour,

Je ne suis pas un expert en VBA mais je m'essaye un peu à ce langage en compagnie de chatgpt et autre. Je créé actuellement un outil sur Excel me permettant d'automatiser des tâches redondante et jusque-là il marchait très bien.

Pour détecter les autres fichier ainsi qu'enregistrer un fichier dans un dossier, j'ai créé un String "chemin" avec le chemin de la forme : 

"chemin = "C:\Users\XXXX\OneDrive - XXXXX\Bureau\test\" "

Maintenant, lorsque je remplace cette ligne par : 

"    chemin = ThisWorkbook.Path & "\""

ça m'affiche une erreur lors du lancement du programme. L'erreur est la suivante : "Erreur d'éxécution '52': Nom ou numéro de fichier incorrect"

Donc je suppose que le chemin est mal détecté par le programme.

Si quelqu'un sait comment réparer ce problème, merci d'avance.

Microsoft 365 et Office | Excel | Pour les entreprises | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

Hecatonchire 53,870 Points de réputation Modérateur bénévole
2023-05-25T09:12:28+00:00

Je n'ai pas fais attention mais "https://XXXXX-my.sharepoint.com/personal/njonnet_XXXXXX_fr/Documents/Bureau/test" n'est pas un chemin d'accès mais une URL donc DIR ne fonctionnera pas !

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires

Réponse acceptée par l’auteur de la question

Hecatonchire 53,870 Points de réputation Modérateur bénévole
2023-05-25T08:26:04+00:00

Dans VBE (la fenêtre du VBA), dans Affichage clique sur Fenêtre Espion pour l'afficher.

Quand le code est en exécution et bloqué sur la ligne en jaune, glisses "chemin & "fichier2.xlsx" dans la fenêtre pour voir le chemin entier.

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires

5 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2023-05-25T08:35:40+00:00

    Pour chemin j'obtiens la valeur suivante : "https://XXXXX-my.sharepoint.com/personal/njonnet_XXXXXX_fr/Documents/Bureau/test"

    Et pour fichier2 :

    "<Variable objet ou variable de bloc With non définie>"

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2023-05-25T08:14:58+00:00

    Le code bloque sur :

        ' Vérifier si le fichier 2 existe 

    If Dir(chemin & "fichier2.xlsx") <> "" Then

    Alors que le fichier 2 existe bien dans le dossier vu que cela marche lorsque je mets le chemin à la main

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Hecatonchire 53,870 Points de réputation Modérateur bénévole
    2023-05-25T08:01:51+00:00

    Bonjour,

    Je pense que l'erreur n'est pas là ! Pour moi ce serait plus sur ce que tu mets au bout de chemin qui pose problème.

    Quand l'erreur se déclenche appuie sur le bouton Débugger du message d'erreur pour voir ou le code bloque. Positionnes alors la souris sur les variables pour voir leurs valeurs.

    Cette réponse a-t-elle été utile ?

    0 commentaires