Bonjour à tous ,
J'ai un classeur , sur lequel j'ai une macro pour copier un nombre de feuilles multiple. Ce peut être une centaine de feuilles .
La feuille copiée et nommée " 1 ". L'idée serait de nommer chaque feuilles copiées avec l'incrémentation : 2 , 3, 4 ,5 etc ....
Voici le code de ma macro :
Merci par avance pour votre aide
J'ai un classeur , sur lequel j'ai une macro pour copier un nombre de feuilles multiple. Ce peut être une centaine de feuilles .
La feuille copiée et nommée " 1 ". L'idée serait de nommer chaque feuilles copiées avec l'incrémentation : 2 , 3, 4 ,5 etc ....
Voici le code de ma macro :
VB:
Sub CopierFeuilleMultiple()
Dim n As Integer
Dim i As Integer
On Error Resume Next
n = InputBox("Combien de copies voulez-vous créer?")
If n > 0 Then
For i = 1 To n
ActiveSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End If
End Sub
Merci par avance pour votre aide