kalenjiman
XLDnaute Nouveau
Bonjour,
Je souhaite copier toutes les feuilles d'un classeur ouvert vers un nouveau classeur. J'utilisais sans aucun problème, sous Excel 2003, le code VBA ci-dessous . Désormais je suis sous Excel 2007, mon fichier a une extension xlsm et cela ne fonctionne plus. Merci de votre aide.
Je souhaite copier toutes les feuilles d'un classeur ouvert vers un nouveau classeur. J'utilisais sans aucun problème, sous Excel 2003, le code VBA ci-dessous . Désormais je suis sous Excel 2007, mon fichier a une extension xlsm et cela ne fonctionne plus. Merci de votre aide.
Code:
'Copier les feuilles vers un nouveau classeur
Dim Sh As Worksheet
Dim classeur2 As String
Dim classeur1 As String
classeur1 = ActiveWorkbook.Name
Workbooks.Add
classeur2 = ActiveWorkbook.Name
For Each Sh In Workbooks(classeur1).Worksheets
Workbooks(classeur1).Sheets(Sh.Name).Copy After:=Workbooks(classeur2).Sheets(Sheets.Count)
Next Sh
'Supprime les feuilles non nécessaires
Sheets("Feuil1").Delete
Sheets("Feuil2").Delete
Sheets("Feuil3").Delete
Workbooks(classeur2).Activate