Garder les 0 devant un nombre lors de l'enregistrement via VBA [Résolu]

Signaler
-
 FlorianR -
Bonjour,

J'ai une macro d'enregistrement en PDF via un bouton (le nom est ciblé ainsi que sa destination). Le nom d'enregistrement est un numéro de facture se terminant par 001, 002, 003, etc...
Je n'arrive pas à faire apparaitre les 0 devant le 1, le 2, le 3, etc... dans le nom du fichier d'enregistrement.
La cellule Q10 est la cellule en question.
Le code de base qui fonctionne est :

Sub Facture_SAVE()

NomFichier = Format(Range("M10"), "yyyy" & "-" & "mm" & "-" & "dd" & "-")
NomFichier2 = Format(Range("Q10"), Value)
chemin = "C:\GestionResto\Factures\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & NomFichier & "" & NomFichier2 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True

End Sub

Merci d'avance pour votre aide!


Configuration: Windows / Chrome 86.0.4240.198

4 réponses

Magnifique!
Tout fonctionne à merveille!
Merci beaucoup!!!
Bonne soirée à toi!
Messages postés
9640
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 novembre 2020
1 985
Bonjour

Je suppose que ton N° de facture Range("Q10"), Value, est au format personnalisé "000"
dans ce cas
NomFichier2 = Format(Range("Q10"), Value,"000")

Cdlmnt
Bonjour ccm81,
Alors oui, elle est au format personnalisé "000". Et ta proposition ne change rien à l'enregistrement. Il est toujours :
F-2020-11-17-1 au lieu de F-2020-11-17-001...
J'ai beau parcourir les différents sujets de forum, rien de probant pour l'instant...
Messages postés
9640
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 novembre 2020
1 985
Bizarre

est ce que ta variable NomFichier2 est bien de type string
ici ça fonctionne
https://www.cjoint.com/c/JKruZ2aIqoB

Cdlmnt