Voila le code pour acceder a tous les fichiers ayant le meme debut de nom
puis lancer ma macro


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"
fic = Dir(Chemin & "A180_PROD_11_LOT*.xls")
je voudrais modifier le Fic pour allez chercher aussi
"A180_PROD_12_LOT*.xls et "A180_PROD_13_LOT*.xls"

j'ai donc 3 noms different mais pour une meme macro
le probleme j'ai d'autre fichier ayant le nom
"A180_PROD_16_LOT*.xls"
"A180_PROD_17_LOT*.xls"
"A180_PROD_18_LOT*.xls"

que eux je ne veux pas ouvrir

j'ai essayer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"
fic = Dir(Chemin & "A180_PROD_11_LOT*.xls") And Dir(Chemin & "A180_PROD_12_LOT*.xls")
et ca ne marche pas