Discussion :

[irimi54]

Bonjour à tous,

Je voudrais exporter une table (un champ nommé ligne comportant des valeurs séparées par des virgules) en un fichier au format .txt
J'ai essayé avec :

Code :

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

DoCmd.OutputTo acOutputTable, "export_carnet_email", acFormatRTF, chemin_impression, True, "", 0

ça fonctionne bien mais je voudrais le format .txt j'ai donc mis acformatTXT mais cela ne donne rien.

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
Private Sub Export_Carnet_Mail_Click()
    Dim Dossier As String
    On Error GoTo err
    'pour indiquer le chemin du dossier et le nom du fichier.txt
    Dossier = Forms![F_Gestion_adherent]![Chemin] & "\Export_Carnet_email.txt"
 
    'pour vider ma table
    DoCmd.RunSQL "DELETE [export_carnet_email].ligne FROM [export_carnet_email]"
 
    'pour la remplir avec les nouvelles adresses mail
    DoCmd.OpenQuery "R_Export_Carnet_email", acViewNormal, acReadOnly
 
    'pour l'exporter
    DoCmd.OutputTo acOutputTable, "export_carnet_email", acFormatRTF, Dossier, True, "", 0
    Beep
    MsgBox "Transfert terminé", vbInformation, ""
    Exit Sub
err:
    MsgBox ("Modifier le chemin des impressions sur le formulaire 'Gestion des adhérents'")
End Sub

merci de votre aide

[tee_grandbois]

bonsoir,

ça fonctionne bien mais je voudrais le format .txt j'ai donc mis acformatTXT mais cela ne donne rien.

"cela ne donne rien" n'est pas très précis comme information.
Pour moi, cela donne quelque chose mais ce n'est pas exploitable car formaté comme un tableau:



A mon avis, OutputTo n'est pas la bonne commande, il faut utiliser TransferText, mais il faudra d'abord créer un format de spécifications, sans cela il y aura un message d'erreur.

Pour créer un format de spécifications, il faut exporter le fichier au moins une fois manuellement: en cliquant sur bouton de droite sur la table ou la requête, puis "Exporter" et "Fichier texte".

Il faut ensuite cliquer sur le bouton "Avancé" sur la dernière fenêtre de l'Assistant Exportation de texte.
Et enfin, on pourra utiliser cette spécification dans la commande:

Code :

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

1
2
    'pour l'exporter
    DoCmd.TransferText acExportDelim, "Nom de la Spécif créée", "export_carnet_email", Dossier, True

[irimi54]

Merci beaucoup , cela fonctionne