Bonjour à tous,
j'ai besoin de votre aide
j'ai la macro ci-dessous qui me permet de créer des classeurs de tous les onglets disponible dans mon fichier.
j'ai besoin de modifier le code, pour permettre la création des classeurs A, B, C, D .....( ect), mais pas la création des classeurs Menu et Liste .
En vous remerciant par avance
Cordialement
Sub classeurs()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.SaveAs Filename:=feuille.Name + ".xls"
End With
Next
End Sub
j'ai besoin de votre aide
j'ai la macro ci-dessous qui me permet de créer des classeurs de tous les onglets disponible dans mon fichier.
j'ai besoin de modifier le code, pour permettre la création des classeurs A, B, C, D .....( ect), mais pas la création des classeurs Menu et Liste .
En vous remerciant par avance
Cordialement
Sub classeurs()
For Each feuille In ActiveWorkbook.Sheets
feuille.Copy
With ActiveWorkbook
.Title = feuille.Name
.Subject = feuille.Name
.SaveAs Filename:=feuille.Name + ".xls"
End With
Next
End Sub