vba document txt duplique 0 n fois

Bonjour,
je souhaiterai remplir un fichier txt à partir de ma BDD, mon code marche très bien seulement pour le champs rs![net] c'est un entier pour éviter la virgule j'ai fait la multiplication par 100 au lieu d'écrire 3000,00 on va avoir 300000 ce champs va se représenter dans le document texte par 15 caractère donc 300000 c'est 6 caractère je souhaiterai ajouter 14 zéro avant 300000. existe t-il une commande qui duplique le chiffre 0 n fois?
voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim intFic As Integer Dim client As tClient Dim intNum As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("personnel") intFic = FreeFile Open "e:\test\monfichier.txt" For Output As intFic intNum = 0 rs.MoveFirst Write #intFic, rs.RecordCount While Not rs.EOF 'Ajoute la donnée print #intFic, "*" & rs![ccp] & rs![net] * 100 & rs![NOMPREN] '& vbNewLine rs.MoveNext Wend Close intFic rs.Close

---

MERCI

Bonjour,
La fonction Format permet (entre autre) d'ajouter des 0 devant un nombre.
Par exemple, pour formater une variable maVar en un texte de 15 caractères de long avec des 0 pour compléter devant, la formule est

Code:

---

Format(maVar, "000000000000000")

---

Si maVar vaut 30000, le résultat sera 000000000030000.

Dans ton cas, je pense que la bonne syntaxe est :

Code:

---

print #intFic, "*" & rs![ccp] & Format(rs![net] * 100, "000000000000000") & rs![NOMPREN] '& vbNewLine

---

Tu peux utiliser

Code:

---

Format(TaValeur,string(20,"0"))

---

qui va directement formater ta valeur sur 20 (14+6) positions.

Autre solution pratique surtout pour les chaînes de caractères mais un peu moins directe :

Code:

---

right(20,string(20,"0") & TaValeur)

---

A+

UN GRAND MERCI:ccool: