XL 2016 macro copier coller de plusieurs feuilles excel

[maglie0210]

Bonjour à tous,

Est ce quelqu'un aurait sous la main une macro qui permet de:
- copier le contenu de plusieurs feuilles Excel (ayant le même nom) issues de plusieurs classeurs (avec nom différent) sur un autre fichier Excel vierge
- le contenu de chacune des feuilles se colleraient les unes à la suite des autres pour obtenir une synthèse en quelque sorte

merci d'avance pour votre aide et bon week end

 

[vgendron]

Bonjour

rien sous la main, mais regarde du coté de Power Query: c'est tout indiqué pour ce que tu sembles vouloir faire

 

[klin89]

Bonjour le forum,

Peut-être un truc de ce genre :

Sub test()
    Dim myDir As String, fn As String
    Application.ScreenUpdating = False
    myDir = "C:\Travail\Blabla\Toto"
    fn = Dir(myDir & "\*.xlsx*")
    Do While fn <> ""
        With Workbooks.Open(myDir & "\" & fn).Sheets(1)
            .Cells(1).CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)(2)
            Application.CutCopyMode = False
            .Parent.Close False
        End With
        fn = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

A améliorer à ta sauce.
klin89