Discussion :

[Mr NGANZI]

Salut
Lors de l'extraction des données d'une base de données vers un fichier texte, si l'on veut gérer les retours à la ligne, c'est mieux d'utiliser Print.

par exemple:

'écriture dans fichier.txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Open "fichier.txt" For Output As #1
For i = 1 To 5
    Print #1, "Ligne " & i
Next i
Close #1

... ce code écrit dans le fichier fichier.txt:

Ligne 1
Ligne 2
Ligne 3
Ligne 4
Ligne 5

Par ailleurs, pour extraire les données de la base tu peux utiliser un recordset et parcourir les données à l'aide de MoveNext

Exemple: extraire les données de la table EMPLOYE qui se trouve dans la base de données GESTION.mdb. la table EMPLOYE a un champ texte NomEmploye et un champ entier Age

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
21
Private Sub Extraire()
'--------définiton des Fichiers et Tables-----------------
Dim Base As DataBase
Dim Table As Recordset
 
Set Base = OpenDatabase(App.Path & "\GESTION.mdb")
Set Table = BASE.OpenRecordset("EMPLOYE", dbOpenTable)
 
'-----------exportation des données--------------------
Open "fichier.txt" For Output As #1
 
With Table
  .MoveFirst
  While Not .EOF
    Print #1, !Nom & " : " & CStr(!Age) & " ans"
  Wend
End With
 
Close #1
 
End Sub

...fichier.txt contiendra un truc du genre:

ASSANI : 25 ans
CLAUDE : 18 ans
Paul : 33 ans

il va falloir modifier tout ton code. je peux t'aider si tu veux mais tu dois me décrire la base et le fichier de destination.

[Ribéry]

Merci mais la pour l'instant ca fonctionne donc j prefere pas trop y toucher...mais c sympa