Discussion :

[zilfana63]

Bonjour à tous,

Je voudrais enregistrer sous ma table d'access vers un fichier .txt

J'utilise ce code mais il manque quelque chose pour montrer que c'est la table que j'enregistre
Code :

Code :

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

With Application.FileDialog(msoFileDialogSaveAs)            .Show            .InitialFileName = "Essai.txt"        End With

Quelqu'un pourrait-il m'aider pour le remplir ?

Merci

[Jean-Philippe André]

bonjour,
si c'est la table seulement que tu veux enregistrer, je te recommande plutôt d'utiliser la fonction

Code :

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

DoCmd.TransfertSpreadSheet 'AcExport ...

[zilfana63]

Code :

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

DoCmd.TransfertSpreadSheet 'AcExport ...

Pourrais-tu m'expliquer comment dois-je l'utiliser ?

Je fais

Code :

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

DoCmd.TransferSpreadSheet acExport "Essai",Essai.txt,True

Si j'utilise TransferSpreadSheet, est ce que je pourrais avoir une fenetre de dialogue "Enregistrer sous" pour que l'utilisateur puisse choisir l'emplacement ?

De plus, faudrait-il ouvrir en écriture séquentiel le fichier d'abord ?

Merci

[Jean-Philippe André]

dans ce code, tu n'as l'aspect "choix de l'emplacement",
par contre, tu peux le simuler, par exemple en utilisant la fonction GetOpenfileName(), qui permet de sélectionner un path...

[zilfana63]

okii, je te remercie

Je vais regarder ce que ca donne avec GetOpenFileName() qui corresponderait plus à mon besoin

je vous tiens au courant...

[zilfana63]

Access ne reconnaît pas GetOpenFileName() ....

[Jean-Philippe André]

c'est une fonction issue de Excel tu peusx avoir un code avec

Code :

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

1
2
3
4
5
Dim AppExcel As New Excel.Application
result= AppExcel.GEtopenfilename()
if result<>false then
'traitement ici
end if

[zilfana63]

en faite, j'utiliserais bien TransferText ou transferDatabase Mais je ne connais pas la structure

Dans l'aide d'access j'ai :

Code :

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

DoCmd.TransferText acExportDelim, "Standard Output", "External Report", "C:\TxtFiles\April.doc"

Ce code permet d'exporter les données de la table External Report dans April.doc en utilisant une sortie standard.

Mais je ne sais pas comment le modifier pour obtenir une fenetre de dialogue qui permettrait de choisir l'emplacement...

Si vous pourriez m'aider à ce sujet, je vous remercie

[zilfana63]

c'est bon j'ai résolu :

Code :

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

1
2
3
4
5
With Application.FileDialog(msoFileDialogSaveAs)
            .Show
            .InitialFileName = "Essai.txt"
            DoCmd.TransferText acExportDelim, , "Ma_TBL", "E:\Essai.txt", False
        End With