Compiler les données de plusieurs fichiers en un seul
Bonjour,
J'ai déjà vue pas mal de post sur le sujet mais je n'arrive pas a faire fonctionner les macros déjà postées.
J'aime bien celle-ci par rapport au choix du répertoire mais il ne prend que la ligne A de chaque fichier, j'aimerai qu'il prenne les lignes des colonnes A2:F2 de chaque fichiers jusqu'à la dernière ligne non vide et qu'il vienne la coller a la suite dans le fichier qui compilera tout.
Au passage je bien l'explication histoire de comprendre, merci d'avance pour l'aide.
Sub Creer_Recapitulatif_2()
Dim sRep As String 'Répertoire ou filtre
Dim sFichier As String
Application.ScreenUpdating = False
sRep = ChoisirRepertoire & "\" 'Boîte de dialogue pour choisir répertoire
sFichier = Dir(sRep)
Do While sFichier <> ""
Workbooks.Open sRep & sFichier 'ouvrir le fichier
' Ici on récupère la valeur de la cellule A1 du fichier
ThisWorkbook.Sheets(1).Range("A2:F2").End(xlDown).Offset(1, 0) = ActiveWorkbook.Sheets(1).Range("A1")
ActiveWorkbook.Close savechanges:=True
sFichier = Dir 'trouve le prochain fichier
Loop
Application.ScreenUpdating = True
End Sub
Function ChoisirRepertoire() As String
Dim diaFolder As FileDialog
' Open the file dialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Show
ChoisirRepertoire = diaFolder.SelectedItems(1)
Set diaFolder = Nothing
End Function
Bonjour,
Si les fichiers ont la même stucture et sont dans le même dossier je vous conseil de passer par power query .
Cdt
Merci pour la réponse mais je vais rester sur la macro, Power query absolument pas pratique.
Une manière d'adapter la maccro a mon cas s'il vous plait ?