Discussion :

[mat955]

Bonjour à tous,

Je me heurte à un problème dans l'exécution d'un code pour boucler sur l'ensemble des fichiers d'un répertoire, et j'avoue que je tourne un peu un rond.

J'ai réutilisé le code présent dans la FAQ, que j'ai un tout petit peu adapté à mon besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.xlsx")
    Do While Len(Fichier) > 0
        Application.StatusBar = Fichier
        Workbooks.Open (Fichier)

Sauf que quand j'exécute le code, j'obtiens un message "Erreur 1004" qui me dit gentillement "Nous sommes désolé, nous ne trouvons pas le fichiers XXXXX.xlsx. Peut-être l'avez-vous renommé, déplacé, supprimé." -> sur la ligne Workbooks.OPEN.

Je peux très bien avoir fait une erreur dans mon code, mais je ne comprends pas comment il peut ne pas réussir à trouver le fichier pour l'ouvrir, et pourtant il réussit à le trouver quand même puisqu'il me met le nom du fichier dans le message d'erreur... Et il me le met également dans ma statusbar.

Si quelqu'un peut éclairer ma lanterne, ce serait top !

Merci d'avance.

[QuestVba]

Bonsoir

As-tu regardé la valeur de Fichier ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier = Dir(Chemin & "*.xlsx")

[impur]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open (chemin & Fichier)

Par contre étant donné que vous travaillez dans le meme dossier que le fichier ouvert, il va falloir rajouter une condition pour l'exclure

[mat955]

Bonsoir,

Pour répondre à la première question, oui j'ai regardé en mettant un msgbox (que je n'ai pas affiché dans l'exemple ci-dessus). La valeur de Fichier est bien le nom de mon fichier, avec l'extension.

Pour répondre à la deuxième question, je filtre justement sur les fichier dont l'extension est .xlsx, alors que mon fichier de travail est en .xlsm, il n'est donc pas pris en compte dans la boucle.

Merci à vous deux.
Si quelqu'un a une piste ?

[impur]

Je vous ai donné la réponse

vous avez écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open (Fichier)

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open (chemin & Fichier)

[mat955]

Re,

Au temps pour moi, je me suis focalisé sur la deuxième partie du message...

Je vais essayer demain matin, ça a l'air d'une bonne piste. J'ai fait une confiance aveugle à la FAQ, et pourtant ce n'est pas écrit comme cela.
Avec le recul, ça me paraît logique d'ajouter la variable Chemin dans la méthode Open.

Je vous tiens informés demain.

Merci encore !

[mat955]

Bonjour,

Merci impur, c'était effectivement cela.
A trop vouloir me creuser la tête, j'en ai oublié les fondamentaux...

Bonne journée !