Discussion :

[s.rais]

Bonjour ! j'aimerais exporter les tables d'une base de données principale Access vers des fichiers txt. Pour le faire j'ai mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Dim db As DAO.Database, tdf As DAO.TableDef
 
  Set db = CurrentDb
  For Each tdf In db.TableDefs
    If (tdf.Attributes And dbSystemObject) = 0 Then
                    DoCmd.TransferText acExportDelim, " ", tdf.Name, "C:\Sauvegarde\" & format(Date, yyyymmdd & tdf.Name & ".txt")
    End If
  Next tdf
  Set db = Nothing

Ce code génére une

erreur d'exécution '3441' le séparateur du champ de spécification du fichier texte est identique au séparateur décimal ou au délimiteur de texte.

En revenant à la syntaxe de la méthode "Transfertext" j'ai trouvé qu'il faut ajouter un nom de format d'exportation qu'il faut créer et enregistrer dans la base.
J'ai essayé d'enregister une exportation et j'ai inséré le nom généré dans le code

Code :

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

     DoCmd.TransferText acExportDelim, "Exportation-" & tdf.Name, tdf.Name, "C:\Sauvegarde\" & format(Date, yyyymmdd & tdf.Name & ".txt")

. Mais ,

erreur d'exécution 3625 La spécification de fichier texte 'Exportation-Produits' n'existe pas. Vous ne pouvez pas importer, exporter, ou lier en utilisant cette spécification

Pouvez-vous m'indiquer comment enregistrer un format d'exportation et comment récupérer son nom. Merci d'avance

[Zekraoui_Jakani]

Essayez ceci:
Cet exemple exporte les données de la table MonFichier vers le fichier texte délimité Destination.doc utilisant les specifications d'output Standard (le répertoire est à modifier):

Code :

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

DoCmd.TransferText acExportDelim, "Standard Output", "MonFichier", "C:\Txtfiles\Destination.doc"

[s.rais]

Merci Zekraoui_Jakani pour la réponse. Le "Standard Output" c'est quoi ? Avec "Standard Output" ça me retourne la même erreur 3625. Faut-il peut être changer cette "spécification" par quelque chose d'autre. Mais par quoi ?

[madefemere]

Bonjour s.rais,

Tu trouveras ICI une discussion qui explique comment enregistrer un paramètre d'export ou d'import.

Utilises-tu plusieurs paramètres d'exportation pour avoir un nom variable :

"Exportation-" & tdf.Name

?

Cordialement.

[s.rais]

Bonjour, poursuivant la recherche pour résoudre le problème, j'ai trouvé ceci :

Avant l'exportation de tes tables il faut créer un fichier schema.ini à l'emplacement de là ou tu veux l'exporter

avec l'exemple suivant que j'ai adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
\schema.ini 
 
[Produits.TXT] 
ColNameHeader = True 
CharacterSet = 1252 
Format=Delimited(;) 
Col01="idProduit" Integer 
Col11="NomProduit" Char Width 35 
Col21="idCategorie" Integer
Col31="Prix" Integer

et ça ne marche toujours pas.