Bonjour,
 
J'ai fait un CommandButton qui recopie une feuille et la renomme selon une série chronologique (Compteur)
 
Do
    NumSem = Compteur
    Sheets(Patron).Copy Before:=Sheets(1)
    ActiveSheet.Name = NumSem
    Compteur = Compteur + 1
Loop Until Compteur = DerniereFeuille + 1
 
Mon problème :
 
Compteur est un Integer et je voudrais que le n° de la feuille soit du type 01, 02, 03... et non 1, 2, 3...
 
Je suis suûr que c'est simple mais je ne trouve pas.
 
merci de m'aider.
 
==

ActiveSheet.Name = CStr(Format(NumSem, "00" ))

 
 
Grand merci.
 
   
 
==