Table d'une Bde Access vers fichier .txt

Bonjour,

avant tout j'ai regardé partout et pour moi rien n'est clair vu que je n'y connais strictement rien en Access Vba.

Ma question:
A partir d'une base de données Access, je dois récupérer toutes les tables avec tous les champs et les données pour les mettre dans des fichiers texte (1 fichier texte par table)

Base de données
Table 1 => Table 1.txt
Table 2 => Table 2.txt
... ...
Table n => Table n.txt

Comment dois-je faire ?
Merci d'avance

Hello,

aide-toi en regardant l'aide sur DoCmd.TransferText

Je te donne mon code brut :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Form_Close()
 
    On Error GoTo ErrFerme
 
    '------------------------  Effacer les anciens inventaires
    Call DEL_Inventaire_Carton
 
    '------------------------  Enregistrer le stock carton dans un fichier texte
    '
    Set rst = db.OpenRecordset("SELECT * FROM Cartons ORDER BY CartonCodeJDE")
    With rst
        .MoveFirst
        Do Until .EOF
            If IsNull(.Fields("CartonQte")) = True Then l_Qte = 0 Else l_Qte = .Fields("CartonQte")
            Call CartonsTxt(.Fields("CartonCodeJDE"), l_Qte)
            .MoveNext
        Loop
        .Close
    End With
 
    '--------------------  Message de fermeture
    msgbox "Le fichier " & s_StockCartons & a été enregistré sur " _
    & vbCrLf & s_CheminStock, vbInformation, "TERMINÉ"
 
FinErrFerme:
    Exit Sub
ErrFerme:
    msgbox Error$
    Resume FinErrFerme
 
End Sub
 
Sub CartonsTxt(s_Code As String, l_Qte As Long)
 
    F = FreeFile
 
    Open s_CheminStock + s_StockCartons For Append Shared As #F
        Print #F, s_Code, l_Qte
    Close #F
 
End Sub
 
Sub DEL_Inventaire_Carton()
 
    On Error Resume Next
 
    Kill s_CheminStock + s_StockCartons
 
End Sub