Re : Copier les données de plusieurs onglets d'un fichier vers un autre fichier
Si cela peut être utile j'ai la macro suivante qui permet de récupérer les données présentes seulement sur la première feuille d'un classeur, il faudrait modifier cette macro pour qu'elle permette de récupérer les données de toutes les feuilles. Cette macro est présente et ce lance sur le classeur où il faut copier les données.
Sub regroupe()
Dim chemin As String
Dim rep As String
Dim fic As String
Dim Wf As Workbook
Dim source As Range
rep = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Set Wf = ThisWorkbook
fic = Dir(rep & "*.xls") ' recherche fichiers
While fic <> ""
If fic <> ThisWorkbook.Name Then
chemin = rep & fic ' chemin fichiers
Workbooks.Open chemin, 0 ' ouverture
Set source = ActiveWorkbook.Sheets(1).Range("A1:Z60")
Wf.Sheets.Add
source.Copy
With Wf.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End With
ActiveWorkbook.Close
End If
fic = Dir
Wend
End Sub