riton00
XLDnaute Impliqué
Bonsoir à tous les excelliens
En fait avec cette macro j'ai la possibilité de créer des onglets par quantité désirée, mais le hic c'est que la première fois, ça marche, mais la deuxième fois si je veux de nouveau créer des onglets j'ai une erreur 400. Si quelqu'un pourrait me trouver l'erreur sur cette macro de façon à pouvoir à n'importe quel moment créer des onglets.
Merci
En fait avec cette macro j'ai la possibilité de créer des onglets par quantité désirée, mais le hic c'est que la première fois, ça marche, mais la deuxième fois si je veux de nouveau créer des onglets j'ai une erreur 400. Si quelqu'un pourrait me trouver l'erreur sur cette macro de façon à pouvoir à n'importe quel moment créer des onglets.
Merci
Code:
Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("feuil1").Copy After:=Sheets(i)
ActiveSheet.Name = "feuil1" & i
Next i
End Sub
Dernière édition: