Autres Assembler plusieurs fichiers Excel

[Ny Aina]

Bonjour à Tous,

Besoin de votre aide svp
J'ai plusieurs fichier Excel (comme dans la P.J). Les contenu du fichier 2-compte c'est la suite du fichier 1-compte, et je voudrais que les contenu du 2-compte sera combiné automatiquement sous les contenu de 1-compte, c'est a dire assembler les deux fichier en une seul
Trouvez-vous une macro ou d'autre méthode ?
Merci bcp de votre aide

 

[Staple1600]

Bonjour le fil

Ny Aina
Il y a de nombreux exemples (avec des solutions) dans les archives du forum.
Tu as fait quelques recherches?

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

Exemple de mots-clés pour les recherches
combiner classeurs
fusionner classeurs

 

[Ny Aina]

Bonjour le fil

Ny Aina
Il y a de nombreux exemples (avec des solutions) dans les archives du forum.
Tu as fait quelques recherches?

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

Exemple de mots-clés pour les recherches
combiner classeurs
fusionner classeurs

Bonjour,
J'ai déjà fait des recherches mais je ne comprend pas comment l'exécuter avec mon cas

 

[Staple1600]

Re

Je ne suis pas Madame Irma
Nulle part dans ton premier message,tu indiques avoir fait des recherches et quecelles-ci furent infructueuses et/ou que tu séches avec celles-ci.


Je vais voir tes fichiers de ce pas

 

[Staple1600]

Re

Après avoir ingurgité mon petit déj, pris ma douche et farfouillé dans les archives, voici un code adapté à tes fichiers exemple

Sub Combiner_Classeurs()
Dim Chemin$, fn$, n$, t
Dim WB_k As Workbook, rs As Range, rd As Range
Chemin = "C:\Documents\test\"
Set WB_k = ThisWorkbook
fn = Dir(Chemin & "*.xlsx")
Application.ScreenUpdating = False
Do While fn <> ""
    If fn <> WB_k.Name Then
        With Workbooks.Open(Chemin & fn)
        Set rs = Range("A2:F" & [A65536].End(xlUp).Row)
        t = rs.Value
        Set rd = WB_k.Worksheets(1).[A65536].End(xlUp).Offset(1, 0)
        rd.Resize(UBound(t, 1), UBound(t, 2)) = t
        Application.CutCopyMode = False
        .Close False
        End With
    End If
    fn = Dir
Loop
End Sub

NB: Il faut adapater la variable Chemin en y mettant le chemin vers le dossier où seront tes fichiers.
Ce code VBA est mis dans un classeur vierge et c'est dans celui-ci (sur la feuille 1) que se fera la compilation.
Le code est prévu pour fonctionner avec des classeurs source ne contenant qu'une seule feuille et une structure identique.
(Les données sont en colonne A à F)