Bonjour.
A supposer que tes dossiers soit des sous-dossiers de c:

Sub test1()
For i = 1 To 3
Workbooks.Open "c:\dr" & i & "DATA.xls"
ActiveWorkbook.Close
Next i
End Sub

(Je ferme le fichier car tu ne peux pas ouvrir plusieurs classeurs avec le
même nom) Insère ton code entre les deux instructions.

Cordialement.
Daniel
"celtic" <laurent.merriadec***veoliaeau.fr> a écrit dans le message de news:
b4907196-5fc1-4241-afba-6241f4c3de7f...oglegroups.com...
Bonjour, voilà revenant de formation vba j'attaque d'entrée, et j'ai
un souci, je ne m' y retrouve plus !
Voilà je vous expose mon cas, je voudrais ouvrir un fichier qui se
trouve dans plusieurs repertoire pour copier les données
En gros le nom de fichier est DATA
et il se trouve dans differents repertoire : DR1
DR1
DR2
DR3
Quel est donc l'instruction pour qu'il ouvre le fichier dr1/data puis
dr2/data etc ....
Merci bien