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 :
Help me
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![]()
![]()
Partager