Bonjour,
J'ai bien réussis à déplacer la feuille au dernier emplacement mais ce qui ne marche pas ici c'est la renommer.
J'aimerais que la feuille s'appelle "S3-SRVTR-dd-mm-yyyy" ou la date serait celle d'aujourd'hui :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Sub CommandButton7_Click()
PREFIX = "S3-SRVTR-"
i = Format(Now, "dd-mm-yyyy")
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet(Sheets.Count).Name = PREFIX & i
End Sub
Help me