Discussion :

[Thomas69]

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

[illight]

C'est bizarre, en lisant ce que tu viens d'écrire, j'ai l'impression que tu n'as pas compris du tout ce que renvoyait la fonction Dir et comment elle marchait.

TU peux pas mettre un And sur une variable string le And ne s'utilise que dans des conditions