Bonjour à tous,
Je ne parviens pas à copier les feuilles de différents fichiers Excel (.xlsx) appartenant à un même dossier dans un fichier mère (.xlsm).
Plus exactement tous mes fichiers .xlsx sont dans un dossier appelé DataPositions. Le code devrait pouvoir copier les feuilles de ces différents fichiers sans en connaître le nom, grâce au chemin du dossier. Finalement toutes les feuilles devraient apparaître dans le fichier mère "Aggregation.xlsm" et chacune de ces feuilles devrait porter le nom de son fichier d'origine (et non pas de sa feuille puisque la feuille de chaque fichier a le même nom, à savoir "pos"). Autrement dit si un fichier venait à s'appeler "XX.xlsx" je devrais avoir une feuille appelée XX dans le fichier mère "Aggregation.xlsm".
Pourriez-vous m'aider s'il vous plaît ?
J'ai commencé quelque chose mais je suis bloqué :
Sub CombineSheets()
Dim Path As String
Dim FileName As String
Dim Wkb As Workbook
Dim WS As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
Path = "/Users/..............." 'Change as needed
FileName = Dir(Path & "\*.xls", vbNormal)
Do Until FileName = ""
Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName)
Wkb.Sheets("pos").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Wkb.Close False
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub