Bonjour à tous
j'ai ma macro suivante qui me permet de duppliquer ma feuille S1 et de la renommer S2.
Sub dupliquer_feuilles1()
Dim i As Integer
Dim ongl As String
ongl = InputBox("Saisir : S ou N ou Nat C", "NOM de la feuille")
Sheets(ongl & "1").Name = ongl & "1"
Application.ScreenUpdating = False
For i = 1 To 1
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
Sheets(ongl & "1").Select
Application.ScreenUpdating = True
End Sub
quand je l'éxécute une première fois, elle marche.
Par contre si je l'exécute à nouveau, elle me met erreur code 1004
ensuite ma nouvelle feuille duppliquer s'appelle(S1(2) et non S3. que dois faire? aidez moi svp
j'ai ma macro suivante qui me permet de duppliquer ma feuille S1 et de la renommer S2.
Sub dupliquer_feuilles1()
Dim i As Integer
Dim ongl As String
ongl = InputBox("Saisir : S ou N ou Nat C", "NOM de la feuille")
Sheets(ongl & "1").Name = ongl & "1"
Application.ScreenUpdating = False
For i = 1 To 1
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
Sheets(ongl & "1").Select
Application.ScreenUpdating = True
End Sub
quand je l'éxécute une première fois, elle marche.
Par contre si je l'exécute à nouveau, elle me met erreur code 1004
ensuite ma nouvelle feuille duppliquer s'appelle(S1(2) et non S3. que dois faire? aidez moi svp