Garder les 0 devant un nombre lors de l'enregistrement via VBA
Résolu
FlorianR
-
FlorianR -
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!
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
A voir également:
- Vba ajouter 0 devant chiffre
- Mettre 0 devant chiffre excel - Guide
- Excel trier par ordre croissant chiffre - Guide
- Clavier iphone chiffre et lettre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Chiffre en lettre - Télécharger - Outils professionnels
4 réponses
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
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