fusion de plusieurs feuille identique de plusieurs fichiers

[excelo]

Bonsoir à tous,
je sais que c'est une question qui est souvent posée sur ce forum mais je n'arrive pas à trouver la réponse qui pourrait résoudre mon problème, je sollicite votre aide car je commence à avoir les yeux rouges
voilà je voudrais fusionner plusieurs feuilles de nom identique ("contrat") de plusieurs fichier, je voudrais fusionner les feuilles intitulées "contrat" à partir de la ligne A2, auriez vous une solution?
je joints un fichier zip
Merci à tous pour votre aide

 

[Staple1600]

Re : fusion de plusieurs feuille identique de plusieurs fichiers

Bonsoir excelo


Un façon de faire
Il faut que le fichier fusion souhaitée soit dans un autre répertoire
que TonDossier pour que la macro fonctionne

Option Explicit
Const dossier As String = "C:\TonDossier\" [COLOR=Green]' à adapter[/COLOR]
Sub compiler_classeurs()
Dim fn$, wb As Workbook
fn = Dir(dossier & "*.xls")
If IsNull(fn) Then Exit Sub
Set wb = ThisWorkbook
Application.ScreenUpdating = False
    Do While fn <> ""
        With Workbooks.Open(dossier & fn)
            With .Sheets("contrat")
            .[A2].Resize(.[A65536].End(xlUp).Row - 1, 184).Copy
            wb.Sheets("contrat").[A65536].End(xlUp)(2).PasteSpecial xlValues
            End With
            Application.CutCopyMode = False
            .Close False
        End With
    fn = Dir
    Loop
End Sub

 

[excelo]

Re : fusion de plusieurs feuille identique de plusieurs fichiers

Bonjour Staple1600, bonjour tout le monde,
je vais faire le test ajd'hui et je te tiens au courant, merci beaucoup pour ton aide,
Bonne journée à tous

 

[excelo]

Re : fusion de plusieurs feuille identique de plusieurs fichiers

Re bonjour tout le monde,
je viens aux nouvelles, ça marche nickel, merci Staple1600, merci à tous,
Bonne soirée à tous,
Excelo