Fusionner plusieurs fichiers Excel en une seule feuille

[zelmasmoudi]

Bonjour,

Je souhaite fusionner plusieurs fichiers Excel en une seule feuille.

Je dispose de 1100 fichiers Excel stockés dans le même répertoire et qui ont un format identique aux fichiers Exemple_1 et Exemple_2 en pj. Mon attendu est de recopier les données des différents tableaux présents dans chaque fichier Excel à partir de la 17ème ligne (même nombre de colonnes et même libellés colonnes). Je vous ai mis en pj un exemple de mon attendu après fusion des fichiers Exemple_1 et Exemple_2 (Cf. Fichier "Attendu")

Pouvez-vous m'aider svp ?

Dans l'attente de vous lire.

Cordialement,

 

[Hieu]

Re : Fusionner plusieurs fichiers Excel en une seule feuille

Salut,

Je te propose par macro :

Sub mlk()
Application.ScreenUpdating = False

chemin = ThisWorkbook.Path & "/"
For i = 1 To 2
Workbooks.Open (chemin & "Exemple_" & i & ".xls")
Windows("Exemple_" & i & ".xls").Activate
    Rows(18).Select
    Selection.Copy
    Windows("Attendu_v0.xlsm").Activate
    Sheets("Feuil1").Range("a1").Offset(i, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("Exemple_" & i & ".xls").Close False
Next i
End Sub

A adapter selon ton besoin.

++
Hieu

 

[zelmasmoudi]

Re : Fusionner plusieurs fichiers Excel en une seule feuille

Bonjour Hieu,

C'est parfait.

Merci pour ton aide.

Bonne journée !