Lecture table et ecriture fichier

Bonjour,

Créer une requete pour n'afficher que les données qui t'intéressent
puis exporter le résultat à l'aide de la fonction suivante :
//users.skynet.be/accesshome/ah_fichiers_generertxt.htm

à+

--
Arnaud
-----------------------------------
http://users.skynet.be/mpfa/
-----------------------------------

"Dave" <topspam@topspam.us> a écrit dans le message de news:
431c85d0$0$7856$8fcfb975@news.wanadoo.fr...
| Bonjour,
|
| Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les
| données qui m'interresse dans
| un fichier texte
|
| Merci de votre aide pour l'exemple
|
| Bonne journée
|
|

Bonjour,

...

Je souhaiterais lire une table dans access jusqu'a la fin et ecrire les
données qui m'interresse

C'est à dire, certains champs et/ou certains enregistrements ?
ci c'est le cas,
faire au préalable une requête.

dans
un fichier texte

Pour l'exemple, une requête extrait les champs voulus pour un
critère donné. La requête est sauvegardée sous RQDAVE.
Les enregistrements sont copiés dans un fichier texte.

Sub zz()
Dim rst As DAO.Recordset, chaine As String
Dim intN As Integer, Chemin As String
Dim f As Integer
f = FreeFile
Chemin = CurrentProject.Path
Set rst = CurrentDb.OpenRecordset("rqdave")
intN = rst.Fields.Count
Open Chemin & "TestEcriture.txt" For Output As f
While Not rst.EOF
For i = 0 To intN - 1
chaine = chaine & rst(i) & ";"
Next i
chaine = Left(chaine, Len(chaine) - 1)
Print #f, chaine
chaine = ""
rst.MoveNext
Wend
Close f
rst.Close
Set rst = Nothing
End Sub


PS : Voir aussi si la commande : OutputTo ne conviendrait pas à ton besoin

Merci de votre aide pour l'exemple

Bonne journée

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr