Dim wkbkdestination As Workbook
Dim destsheet As Worksheet
For Each ThisWorkSheet In wkbkorigin.Worksheets
'this throws subscript out of range if there is not a sheet in the destination
'workbook that has the same name as the current sheet in the origin workbook.
Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name)
Next
Fondamentalement, je boucle sur toutes les feuilles du classeur d'origine puis définissez destsheet
dans le classeur de destination la feuille portant le même nom que celui actuellement itéré dans le classeur d'origine.
Comment puis-je tester si cette feuille existe? Quelque chose comme:
If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then