Discussion :

[Bidule99]

Bonjour,

Je cherche à exporter une table Access sous forme de fichier "csv".

J'ai utilisé l'instruction suivante (la table "LOCTbl99" existe bien dans la base!):

Code :

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

1
2
3
4
5
 
Dim FichCsv as String
 
FichCsv="C:\Data\TestA.csv"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "LOCTbl99", FichCsv

A l'exécution, j'ai une erreur 3027 (Mise à jour impossible. La base de données ou l'objet est en lecture seule). En regardant l'aide Microsoft pour cette erreur, il semble que cela vienne du fait que l'exportation se fait en Excel et la conversion en csv après ne peut donc pas s'effectuer directement.

Si c'est bien l'erreur, existe-t-il une solution pour un export direct en csv, autre que l'export en Excel puis à aprtir d'Access, l'ouverture et sauvegarde du fichier Excel en tant que csv?

Merci d'avance


Dominique

[ONTAYG]

Bonjour,

Un fichier CSV n'est pas un fichier Excel, c'est un fichier texte avec séparateur, même si Excel ouvre ce type de fichier de manière native.

Il faut que tu utilises un TransferText et non sheet.

ONTAYG

[Bidule99]

Bonjour,

Un fichier CSV n'est pas un fichier Excel, c'est un fichier texte avec séparateur, même si Excel ouvre ce type de fichier de manière native.

Il faut que tu utilises un TransferText et non sheet.

ONTAYG

Merci de la réponse.
En fait, j'avais commencé avec TransferText et créé la Specification
.

Le code était:

Code :

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

1
2
3
 
 
DoCmd.TransferText acExportDelim, "StdComma", "LOCTbl99", FichCsv

J'ai eu une erreur d'objet non trouvé qui mentionnait "TestA#csv" alors que ce devrait être "TestA.csv".
J'ai essayé avec une autre spécification en remplaçant Unicode (UTF-8) par Unicode, et en ajoutant (vu sur ce site) 65001 comme dernier paramètre dans les deux cas. Mais pas de changement.

Donc comment faire pour que TransferText fonctionne?


Dominique

[ONTAYG]

Bizarre.

En effet, j'utilise régulièrement cette expression et rarement de soucis.

Ce que tu exportes c'est une table ou une requête ? Si c'est une requête c'est bien une requête de sélection ?

Refais ton filtre d'export et regardes si tu n'as pas inversé filtre et source dans ta ligne.

ONTAYG

[Bidule99]

Bizarre.

En effet, j'utilise régulièrement cette expression et rarement de soucis.

Ce que tu exportes c'est une table ou une requête ? Si c'est une requête c'est bien une requête de sélection ?

Refais ton filtre d'export et regardes si tu n'as pas inversé filtre et source dans ta ligne.

ONTAYG

Bonjour,

C'est une table que j'exporte. Quand je l'exporte en Excel, pas de problème!


Dominique

[tee_grandbois]

bonjour,
vérifie si dans les champs exportés il n'y aurait pas le caractère virgule "," qui est le séparateur de champs de ton format et si oui, il faudrait utiliser un délimiteur de texte (option: Text Qualifier)

[Bidule99]

bonjour,
vérifie si dans les champs exportés il n'y aurait pas le caractère virgule "," qui est le séparateur de champs de ton format et si oui, il faudrait utiliser un délimiteur de texte (option: Text Qualifier)

Merci de t'intéresser à mon problème.
Après vérification, pas de virgule dans les champs exportés.


Dominique

[Bidule99]

Bonjour,


Pas d'idées sur une éventuelle solution?


Dominique

[hyperion13]

Salut
Possible d'avoir un extrait de votre bdd avec uniquement votre table LOCTbl99 et des données peu sensibles. (en zip ou rar)

[ONTAYG]

il y a quoi comme données dans ta table ?

Je suis étonné que le délimiteur de date soit le même que le délimiteur de décimal.

[Bidule99]

Merci à vous deux.

Je joins la partie de la BD qui pose problème.
L'erreur est est sur la ligne du Docmd.Transfer Text.... et c'est:



Pour information, les deux exports également dans le code (db et Excel) fonctionnent parfaitement avec la même table.


Dominique

[hyperion13]

Salut
Sur l'évènement Private Sub BtnB13_Click(), à vous de vérifier si tout est ok avec les différents blocs If ... Then ... Else ... End If jusqu'à

Code :

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

DoCmd.TransferText acExportDelim, "StdComma", "LOCTbl99CustToExport", CustExportFilCv

Chez moi cela fonctionne très bien, le fichier csv est bien généré.
Par contre votre Paramétrage d'export est invalide. Chez moi (img1) je liste les champs de la table, chez vous (img2) j'ai le générique Field1, etc. et là ça coince.

[Bidule99]

Salut
Sur l'évènement Private Sub BtnB13_Click(), à vous de vérifier si tout est ok avec les différents blocs If ... Then ... Else ... End If jusqu'à

Chez moi cela fonctionne très bien, le fichier csv est bien généré.
Par contre votre Paramétrage d'export est invalide. Chez moi (img1) je liste les champs de la table, chez vous (img2) j'ai le générique Field1, etc. et là ça coince.

Bonjour,

Merci de vos commentaires.
En fait, sur la base de vos remarques, j'ai cherché plusieurs solutions et il semble qu'il ne faille pas indiquer de spécification d'exportation.
Pour ce qui est du nom des champs, j'ai ajouté "True" à la fin du DoCmd pour indiquer que la table exportée contient les noms des champs.

Avec ce code:

Code :

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

1
2
 
         DoCmd.TransferText acExportDelim, , "LOCTbl99CustToExport", CustExportFilCv, True

l'export se fait correctement.

Merci à tous.


Dominique