[VBA-Excel] traitement dossier de classeur Excel

Bonjour tout le monde,

voici mon souci : j'ai un dossier contenant des classeurs excel qui ont tous des lignes d'enregistrements sur leur première feuile - je voudrais créer un classeur excel qui me copie un à la suite des autre tout ces enregistrements de ces classeurs.

je n'y arrive pas du tout - merci de m'aider.

j'ai crée mon classeur :

Code:

---

1 2 3 4 5 6

Set classeur = Application.Workbooks.Add   With classeur .SaveAs "Z:\Construction" Windows("Construction.xls").Activate End With

---

j'ai en fait besoin d'aide pour finir ce début de programme :

Code:

---

1 2 3

ChDir "Z:\IMPORT 1" monfichier = Dir("*.*") While monfichier <> ""

---

merci de votre aide.

ash.

bonjour

tu peux déja tester cette procédure pour boucler sur les classeurs d'un répertoire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Fichier As String, Repertoire As String Dim Wb As Workbook   Repertoire = "Z:\IMPORT 1" Fichier = Dir(Repertoire & "\*.xls")   Do While Len(Fichier) > 0 Set Wb = Workbooks.Open(Repertoire & "\" & Fichier) ' '... ' Wb.Close False Fichier = Dir() Loop

---

michel

:D merci SilkyRoad ! grâce à ton bout code j'ai pu finir le programme.