Importer plusieurs fichiers en un seul
Bonjour,
Je dois importer plusieurs fichiers excel dans un seul. Chaque fichier comporte 5 onglets (les memes a chaque fois), il faudrait que les donnees se mettent donc les unes a la suite des autres. Je voudrais aussi choisir les fichiers que j'importe.
Je voudrais savoir s'il fallait que je créé deja les onglets dans le fichier qui rassemblera les autres.
Pour le moment j'ai deja un code mais il ne fonctionne pas :
Dim DocDep, Chemin, NomFichier, Class, Lgn
Sub ImportDataFromMultipleWorkbooks()
Application.ScreenUpdating = False
Set DocDep = ActiveSheet
Chemin = ThisWorkbook.Path & "\"
NomFichier = Dir(Chemin & "*xls*")
Do While Len(NomFichier) > 0
If NomFichier <> ThisWorkbook.Name Then
Set Class = Workbooks.Open(Chemin & NomFichier)
If Cells(1, "AA").Value <> "Données exportées" Then
Range("A1:AA" & Range("A" & Rows.Count).End(xlUp).Row).Copy
Lgn = DocDep.Range("A" & Rows.Count).End(xlUp)(2).Row
DocDep.Cells(Lgn, "A").PasteSpecial xlPasteValues
Cells(1, "AA").Value = "Données exportées"
Class.Close True
Else
MsgBox "Les données du fichier " & Class.Name & " ont déjà été importées !"
Class.Close False
End If
End If
NomFichier = Dir
Loop
MsgBox "Travail terminé !"
Application.ScreenUpdating = True
End Sub
Merci d'avance pour votre aide, n'hésitez pas si vous avez besoin de plus de précisions