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 : Sélectionner tout - Visualiser dans une fenêtre à part
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