[AC-2003] export fichier texte

[leportc]

Bonjour,


Je suis actuellement bloqué au niveau de l'export d'un fichier texte,

en effet je dois exporter un fichier texte avec une longueur prédéfini, ce fichier doit inclure :

1 - ordre de virement (n°de virement, motif, date + des champs calculé)
2- les détail du virement ( ref, montant, société, rib,..)

J'ai donc créer une requête ordre de virement et une requête détail du virement

Le fichier doit exporter l'ordre de virement et les détail du virement correspond.

Je souhaiterais créer un bouton sur le formulaire qui exporte l'enregistrement en cours.

Petite questions en plus : lors de l'export de mes champs calculés le résultat s'affiche avec des décimales or je voudrais un nombre entier sans décimal.

Comment m'y prendre ?

Merci d'avance,

[zoom61]

Avec quelque chose comme cela tu devrais y arriver :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Function export_txt()
    Dim cfic As String, nfic As Long
    cfic = "C:\répertoire\fichier.txt"
    nfic = FreeFile(0)
    Open cfic For Output As nfic
 
    Print #nfic, "Première ligne que tu veux écrire dans ton fichier txt"
    Print #nfic, "Deuxième ligne que tu veux écrire dans ton fichier txt"
    ...
 
    Close nfic
End Function

[leportc]

merci de ta réponse

désolé, je suis un peu novices en vb :

Comment dois-je inserer ?

Code :

DoCmd.TransferText; acExportDelim, , Ordre_virement_requete, "D:\donnees\uti\prive\Documents\le-portc\essai.txt"

[zoom61]

Je suis parti du principe que "Ordre_virement_requete" était une requête et qu'elle contenait un champ et une ligne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function export_txt()
    Dim cfic As String, nfic As Long
 
    cfic = "D:\donnees\uti\prive\Documents\le-portc\essai.txt"
    nfic = FreeFile(0)
    Open cfic For Output As nfic
 
    Set oSQL = CurrentDb.OpenRecordset(Ordre_virement_requete)
    Print #nfic, oSQL![Champ]
    oSQL.Close  
 
    ...
    Print #nfic, "Deuxième ligne que tu veux écrire dans ton fichier txt"
    ...
 
    Close nfic
End Function