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 :
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.
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)
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.
Partager