Fusionner plusieurs fichiers Excel en une seule feuille

zelmasmoudi

XLDnaute Nouveau
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,
 

Fichiers joints

Hieu

XLDnaute Impliqué
Re : Fusionner plusieurs fichiers Excel en une seule feuille

Salut,

Je te propose par macro :

Code:
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
 

Fichiers joints

zelmasmoudi

XLDnaute Nouveau
Re : Fusionner plusieurs fichiers Excel en une seule feuille

Bonjour Hieu,

C'est parfait.

Merci pour ton aide.

Bonne journée !
 

Discussions similaires


Haut Bas