Discussion :

[Ludwik]

Dans le script ci joint je transfert une table dans un fichier texte, le résultat est que chaque valeur est espacée d'un point virgule au lieu d'une tabulation y aurait il une solution pour que la tabulation remplace le point virgule ?

En vous remerciant pour votre aide

Code :

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

1
2
3
4
 
Function essais()
DoCmd.TransferText [acExportDelim], , "Bd_CanevasExport", "C:\ExportTest3.txt", False
End Function

[Taoueret]

Pour cela, il faut que tu créé un fichier schema.ini placé dans le même répertoire d'export et dans lequel tu vas définir ta spécification d'export :

Code :

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

1
2
3
4
5
6
7
8
9
10
'Création du fichier schema.ini*******************************
Open "C:\schema.ini" For Output As #1
Print #1, "[ExportTest3.txt]", Chr(13), "Format=TabDelimited", Chr(13), "TEXTDELIMITER = none", Chr(13), "DECIMALSYMBOL=", Chr(34); Chr(124); Chr(34), Chr(13), "NUMBERDIGITS = 0"
        Close #1
'*****************************************************
 
DoCmd.TransferText [acExportDelim], , "Bd_CanevasExport", "C:\ExportTest3.txt", False
 
'suppression du fichier schema.ini
Kill "C:\schema.ini"

[Ludwik]

Aie! Aie! en rajoutant la création du fichier ini je transfert les entetes de colonnes espacés par une tabulation mais chaque donnée se trouve toujours séparées par un ou des points virgule. Je ne souhaite pas d'avoir un transfert d'entete mais uniquement du contenu des données et que chaque point virgule soit est remplacé par une tabulation. j'ai essayé plusieurs solutions mai j'ai un peu de mal pour comprendre et essayé de trouver la solution merci pour votre entraide.
ci joint le résultat du scripte avec le fichier ini
[CODE]Vide Noeud No annuaire Nom d'annuaire Prénom
;;" 329465";"dfmljqs";"Personnalise";"
;;" 329466";"verchere";"Personnalise";"
[CODE]

[willcartley]

Salut!
Essaie çà pour définir les délimiteurs.

[Ludwik]

cela ne correspond pas je dois effectuer ce transfert de fichier sur demande par le biais d'un bouton, une cde VBA est donc necessaire.

[Ludwik]

en créant un format d'importation par le biais de l'export de ma base (option enregistrer sous) et est en utilisant la cde "transfert texte" suivante

Code :

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

DoCmd.TransferText acImportDelim, "NomModel", "TableDestination", "FichierSource"

j'obtient le résultat dans un fichier excel ????? quelqu'un peut il m'eclairer, j'ai pourtant spécifié dans le format d'exportation que je souhaitais un format texte

[willcartley]

Pour la methode que je t'ai proposé, c'est juste pour enregistrer le "modèle" d'exportation de fichier texte une seule fois (tout comme tu si tu créé un table ou une requête dans ta base), ensuite tu peux utiliser ce modèle créé autant de fois dans ton code (à part si tu importe ton module dans un autre fichier Access où tu devrais refaire la même chose une seule fois aussi).

Pour le fichier, précise dans le nom du fichier avec un ".txt" à la fin, çà devrait aller.

[Ludwik]

Merci à vous tous cela fonctionne parfaitement. Le model qui a été créé par le biais de l'export peut on le retrouvé et l'inclure dans le code VBA?

[a_paul]

un transfert AVEC d'entete SANS d'entete uniquement du contenu des données
Sous Windows Vista tu n'as pas la génération qui est faite du fichier schema.ini tu dois donc le créer avant l'import ou export

Ton fichier schema.ini

Code :

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

1
2
3
4
5
6
7
[Authors.TXT]
ColNameHeader = True
CharacterSet = 1252
Format=Delimited(;)
Col1="Au_ID" Integer
Col2="Author" Char Width 50
Col3="Year Born" Short

Code :

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

1
2
3
4
5
6
7
8
'Sans le nom des champs
[Authors.TXT]
ColNameHeader = False
CharacterSet = 1252
Format=Delimited(;)
Col1="Au_ID" Integer
Col2="Author" Char Width 50
Col3="Year Born" Short

Code :

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

1
2
3
DoCmd.TransferText acExportDelim, "", "Authors", MonnBureau$ & "\Authors.TXT", True
 
DoCmd.TransferText acImportDelim, "Authors", MonnBureau$ & "\Authors.TXT", True