Re : Récupérer des données de plusieurs fichiers pour faire un tableau récapitulatif
Salut a tous,
J'ai essayé une ébauche de macro mais j'ai une erreur "RunTime error 1004", la macro ne trouve pas le dossier ou le fichier et je vois pas ou je me suis trompé..
Ci dessous la début de macro que j'ai "bricolé", pardon aceux que ca choquera
"
Sub test()
Dim Chemin As String, Fichier As String
Chemin = "D:\Internship CSD Pricing Docs\FOC essaie"
Fichier = Dir(Chemin & "*.xls")
i = 1
Set fso = New Scripting.FileSystemObject
Set DossierSource = fso.GetFolder(Chemin)
For Each F In DossierSource.Files
fbis = Mid(F, 10, Len(F) - 9)
Workbooks.Open Chemin & fbis
Workbooks(fbis).Activate
'Workbooks(fbis).Sheets(1).Range("G22" ).Copy (Workbooks("FOC_Credit Note Tracker.xlsm" ).Sheets("Cover" ).Cells(i, 1))
Workbooks("FOC_Credit Note Tracker.xlsm").Sheets("Cover").Cells(i, 1) = Workbooks(fbis).Sheets(1).Range("G22").Value
'Workbooks(fbis).Sheets(1).Range("G17" ).Copy (Workbooks("FOC_Credit Note Tracker.xlsm" ).Sheets("Cover" ).Cells(i, 2))
Workbooks("FOC_Credit Note Tracker.xlsm").Sheets("Cover").Cells(i, 2) = Workbooks(fbis).Sheets(1).Range("G17").Value
'Workbooks(fbis).Sheets(1).Range("G18" ).Copy (Workbooks("FOC_Credit Note Tracker.xlsm" ).Sheets("Cover" ).Cells(i, 4))
Workbooks("FOC_Credit Note Tracker.xlsm").Sheets("Cover").Cells(i, 4) = Workbooks(fbis).Sheets(1).Range("G18").Value
'Workbooks(fbis).Sheets(1).Range("C1" ).Copy (Workbooks("FOC_Credit Note Tracker.xlsm" ).Sheets("Summary" ).Cells(i, 5))
Workbooks("FOC_Credit Note Tracker.xlsm").Sheets("Summary").Cells(i, 5) = Workbooks(fbis).Sheets(1).Range("C1").Value
'Workbooks(fbis).Sheets(1).Range("D6" ).Copy (Workbooks("FOC_Credit Note Tracker.xlsm" ).Sheets("Summary" ).Cells(i, 6))
Workbooks("FOC_Credit Note Tracker.xlsm").Sheets("Summary").Cells(i, 6) = Workbooks(fbis).Sheets(1).Range("D6").Value
'Workbooks(fbis).Sheets(1).Range("D8" ).Copy (Workbooks("FOC_Credit Note Tracker.xlsm" ).Sheets("Summary" ).Cells(i, 7))
Workbooks("FOC_Credit Note Tracker.xlsm").Sheets("Summary").Cells(i, 7) = Workbooks(fbis).Sheets(1).Range("D8").Value
'Workbooks(fbis).Sheets(1).Range("D9" ).Copy (Workbooks("FOC_Credit Note Tracker.xlsm" ).Sheets("Summary" ).Cells(i, 8))
Workbooks("FOC_Credit Note Tracker.xlsm").Sheets("Summary").Cells(i, 8) = Workbooks(fbis).Sheets(1).Range("D9").Value
Workbooks(fbis).Close
i = i + 1
Next
End Sub "
Merci d'avance pour votre aide.