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