Générer un fichier texte

Public Sub textfile()

Dim db As Database, qd As QueryDef, RS As Recordset

Set db = CurrentDb ' Objet base de données

Set qd = db.QueryDefs("marequete") ' Objet requête

Set RS = qd.OpenRecordset() ' Objet jeu d'enregistrements

Open "monchemin\monfichier.TXT" For Output As #1

Print #1, "champ1;id;champ2;champ3"

Do While Not RS.EOF

Dim machaine As String

machaine = ""

For n = 1 To 9

machaine = machaine & RS(n - 1) & ";"

Next n

Print #1, machaine

RS.MoveNext ' Enregistrement suivant

Loop

Close #1

RS.Close

qd.Close

db.Close

Set RS = Nothing

Set qd = Nothing

Set db = Nothing

End Sub