[AC-2007] vba document txt duplique 0 n fois [Résolu]

[hocine]

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

[tedo01]

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

[marot_r]

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+

[hocine]

UN GRAND MERCI