Fusionner plusieurs fichiers Excel en une seule feuille

zelmasmoudi · 17 Mai 2016

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 · 18 Mai 2016

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

zelmasmoudi · 19 Mai 2016

Re : Fusionner plusieurs fichiers Excel en une seule feuille

Bonjour Hieu,

C'est parfait.

Merci pour ton aide.

Bonne journée !

Fusionner plusieurs fichiers Excel en une seule feuille

zelmasmoudi

XLDnaute Nouveau

Pièces jointes

Hieu

XLDnaute Impliqué

Pièces jointes

zelmasmoudi

XLDnaute Nouveau

Discussions similaires