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
... ce code écrit dans le fichier 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
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
...fichier.txt contiendra un truc du genre:
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
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.
Partager