copier plusieurs pages avec choix du titres

[janick]

Bonjour

Je souhaiterais recopier 40 fois ma feuille '01' en 02-03-04-....40
actuellement je fais recopier et renomer

 

[groussel]

Re-bonjour Janick,

Voilà ta solution :

Sub RecopierFeuille()
Sheets('feuil1').Copy '
For x = 40 To 1 Step -1
Worksheets('feuil1').Copy After:=Worksheets('feuil1')
ActiveSheet.Name = x
Next
End Sub


Enjoy it !

A plus,

 

[Charly2]

Bonsoir Janick et Gérald, bonsoir à toutes et à tous

Pour répondre à ta demande (noms des feuilles tels que 02-03, etc.), et en empêchant le rafraîchissement (bien qu'avec une Duvel, semble-t-il ...) :

Sub RecopierFeuille()
  Application.ScreenUpdating = False
  For i = 2 To 40
    Worksheets('01').Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Format(i, '00')
  Next
End Sub

Amicalement
Charly