Bonjour,
Je n'arrive pas à copier ET renommer un onglet, mon code bloque systématiquement au moment de renommer, et j'ai essayé de plusieurs facon, rien a y faire, je ne comprend pas...
Est-ce que quelqu'un voudrait bien m'indiquer ce que je fais de mal ?
merci d'avance,
Cordialement,
tom
Je n'arrive pas à copier ET renommer un onglet, mon code bloque systématiquement au moment de renommer, et j'ai essayé de plusieurs facon, rien a y faire, je ne comprend pas...
Est-ce que quelqu'un voudrait bien m'indiquer ce que je fais de mal ?
Code:
Dim numDef As Variant
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name = "AFFICHAGE " + numDef Then
WS.Select
Found = True
Exit For
Else
Sheets("AFFICHAGE VIDE").Copy After:=Sheets(5)
Sheets("AFFICHAGE VIDE (2)").Name = "AFFICHAGE " + numDef
WS.Select
End If
Next
merci d'avance,
Cordialement,
tom