Bonjour,
Je dois importer des données de 1600 fichiers excel sur 1 page d'un unique fichier.
Pour le moment j'ai fais le test sur 3 fichiers "fake" pour écrire la macro.
Voilà ma macro :
Nomfic = ThisWorkbook.Name
Dim Ligne As Integer
Dim repertoire As String, fichier As String
repertoire = "c:\user\U531099\Documents\VBA"
ChDir repertoire
fichier = Dir("*.xlsx")
Do While fichier <> ""
If fichier <> Nomfic Then
Workbooks.Open fichier
Range("A1").Select
Selection.End(xlDown).Select
Ligne = ActiveCell.Row
Range("A1:G" & Ligne).Select
Selection.Copy
Workbooks(Nomfic).Sheets("Synthèse").Activate
Range("A1").PasteSpecial
End If
Loop
End sub ()
Cependant quand je la fais tourner, elle tourne en boucle (à cause du Loop) sur le fichier excel n°1
Comment est-ce que je peux faire pour qu'elle copie colle les données des autres fichiers, à la suite du premier ?