Renommer une feuille dans le bon format

Renommer une feuille dans le bon format - VB/VBA/VBS - Programmation

Marsh Posté le 22-07-2004 à 12:24:50    

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.
 
==

Reply

Marsh Posté le 22-07-2004 à 12:24:50   

Reply

Marsh Posté le 22-07-2004 à 13:44:58    

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

Reply

Marsh Posté le 22-07-2004 à 17:28:25    

JiHemAir a écrit :

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


 
 
Grand merci.
 
 :bounce:  
 
==

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed