VBA - Format Sheetcount

[ml121]

Bonjour ,

J'ai un fichier qui génére des fiches produit selon un moteur de recherche.

Les onglet et les fiches sont sont numérotés selon un préfixe et le n° de la feuille selon le code suivant :

ws.Range("I1").Value = Sheets("Renseignements Chantier").Range("D3").Value & ActiveWorkbook.Sheets.Count - 6

Cela fonctionne très la plus part du temps et donne un résulta du type : Chantier xx-Fiche 1

Le soucis viens si les fiches ne demarrent pas 0. Si les fiches démarrent au n°300 par ex je peux rentrer le préfixe suivant : Chantier xx-Fiche 30X mais cela ne fonctionnera que jusqu'à 9 car au dela je me retrouve avec cette numerotation : Chantier xx-Fiche 3010

Est il possible de faire en sorte que la valeur du sheets.Count soit du type : 01, 02 au lieu de 1,2 ?

Cordialement ,

 

[Lolote83]

Salut ML121,
Peut être comme ceci

    If ActiveWorkbook.Sheets.Count - 6 < 10 Then
        xNum = "0" & ActiveWorkbook.Sheets.Count - 6
    Else
        xNum = ActiveWorkbook.Sheets.Count - 6
    End If
    ws.Range("I1").Value = Sheets("Renseignements Chantier").Range("D3").Value & xNum

 

[ml121]

Super merci beaucoup !