Discussion :

[drthodt]

Bonjour à tous,
J'ai un fichier Excel comprenant une macro, qui ouvre en séquence l'ensemble des fichiers Excel d'un répertoire et en parcourt tous les onglets.

Mon fichier dans lequel est stockée ma macro est obligatoirement situé dans le même dossier que l'ensemble des fichiers Excel à traiter et que j'ouvre en séquence.

Mon code est le suivant

Code :

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

1
2
3
4
5
6
'Selection des fichiers au format xls
Fichier = Dir(Chemin & "*.xls")
 
'Boucle d'ouverture de l'ensemble des fichiers Excel du répertoire choisi
Do While Fichier <> ""
Set Classeur_Courant = Workbooks.Open(Chemin & Fichier)

Lorsqu'il est exécuté, j'ai logiquement mon fichier comprenant ma macro qui est considéré dans mes '*.xls", ma macro essaie donc de l'ouvrir aussi et j'obtiens un message d'erreur.Comment ne pas essayer d'ouvrir aussi mon fichier qui comprend ma macro?
Merci d'avance pour vos propositions,
M

[ouskel'n'or]

Code :

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

1
2
If Ucase(Fichier) <> Ucase(Thisworkbook.name) then _
      Set Classeur_Courant = Workbooks.Open(Chemin & Fichier)