Bonjour,

J'ai créé un formulaire qui doit générer à chaque ouverture un numéro de dossier type 2017-DIVERS-001


J'ai concaténé deux cellules pour obtenir mon numéro de dossier dans une TextBox de mon formulaire, qui s'incrémente de 1 à chaque nouvelle saisie:
G1=ANNEE(AJOURDUI())&"-"&"DIVERS"&"-" et H1="001", avec un format spécial pour conserver les deux zéros devant le 1.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub NuméroDossier_Change()
 
NuméroDossier = Range("G1") & Range("H1") + WorksheetFunction.CountA(Range("B3:B100"))
 
End Sub
Mon problème est que le résultat affiché de ma TextBox est 2017-DIVERS-1
Le format "001" de ma cellule H1 n'est pas conservé. J'ai trouvé des exemples sur le forum avec la fonction NumberFormat mais je n'arrive pas à l'appliquer à mon code

Quelqu'un pour m'expliquer comment faire?

Merci d'avance!