Problème macro

[Archimed]

Bonsoir;
Quelqu'un pourait-il me dire ce qui ne colle pas avec cette petite macros !!
aprés son excécution , au delà de la 13e copie elle m'affiche un message
d'erreur. Merci . Archi
voici Ma macros:
-----------------------------------------
Sub CopieBulletin()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Elève").Copy After:=Sheets(i)
ActiveSheet.Name = "Elève " & i
Next i
End Sub
-----------------------------------------------

 

[JCGL]

Re : Recherche tri et affichage

Bonjour à tous,

Archimed :

Voir le fichier joint
Mais il est vrai qu'un nouveau message eut été préférable.

Au plaisir de te lire
A+ à tous

Edition : Merci Pascal pour le déplacement ;-)

 

[kjin]

Re : Problème macro

Re, bonsoir JC
Bizarre, j'ai cru avoir déjà répondu mais bon

Sub CopieBulletin()
Dim i, z As Integer
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Elève").Copy After:=Sheets([COLOR="Red"]Sheets.Count[/COLOR])
ActiveSheet.Name = "Elève " & i
Next i
End Sub

A+
kjin