A
alexandre
Guest
La routine suivante fonctionne à peu près...
Sub Copie
combien = InputBox("Combien de feuille identiques voulez vous ?")
Sheets("HuHu").Select
While combien > 1
combien = combien - 1
Sheets("HuHu").Copy After:=Sheets(Sheets.Count)
Wend
End Sub
(HuHu étant le nom de la feuille à copier)
Cependant au-delà de 20 copies... la macro plante.... ! Incompréhensible pour le néophyte que je suis.
De plus, ma feuille "modèle" portant le nom '1', j'aurais souhaité que les copies se nomment automatiquement 2,3,4,5, etc....
Une solution ?
Encore merci
Sub Copie
combien = InputBox("Combien de feuille identiques voulez vous ?")
Sheets("HuHu").Select
While combien > 1
combien = combien - 1
Sheets("HuHu").Copy After:=Sheets(Sheets.Count)
Wend
End Sub
(HuHu étant le nom de la feuille à copier)
Cependant au-delà de 20 copies... la macro plante.... ! Incompréhensible pour le néophyte que je suis.
De plus, ma feuille "modèle" portant le nom '1', j'aurais souhaité que les copies se nomment automatiquement 2,3,4,5, etc....
Une solution ?
Encore merci
