Importation Fichier.csv MS Excel vers Access en vba

Version imprimable

11/03/2013, 23h06
Dixies

Importation Fichier.csv MS Excel vers Access en vba

Bonsoir,

Je me heurte péniblement à un problème discuté maintes fois sue ce site et ailleurs et je n'y arrive pas !:cry:

Je voudrais importer un fichier .csv Excel vers une table Access.

J'utilise cette fonction :

Code:

DoCmd.TransferSpreadsheet acImport ....

ou bien :

Code:

DoCmd.TransferText

mais le résultat ne plaît pas.

Par contre j'y arrive trés bien depuis un fichier an format .xls

Donc ma question : comment en vba executer un "Enregistrer sous ..." de mon Fichier.csv en Fichier.xls ?

J'ai trouver ici ou là des codes qui renoment un fichier mais ça ne marche pas non plus.

Merci d'avance.
12/03/2013, 12h30
mumen

Bonjour,

Il est impossible de répondre à ton message.

Citation:

mais le résultat ne plaît pas.

n'indique rien de tes problèmes avec les csv que tu n'as pas avec les xls.

et

Citation:

Donc ma question : comment en vba executer un "Enregistrer sous ..." de mon Fichier.csv en Fichier.xls ?

C'est sous Excel que tu peux te poser la question. Ça n'existe pas sous Access. Si tu n'as que des csv fournis, il te faudra résoudre le problème avec des csv.
14/03/2013, 15h31
Dixies

1 pièce(s) jointe(s)

Bonjour,

Merci mumen pour ta réponse.

Ainsi je cherche donc àn importer mes fichiers vers Access en csv mais je bloque.

J'essaie avec ceci :

Code:

DoCmd.TransferText acImport, FormatImportCL, "MaTable", "F:\Mes documents\Elevage\Contrôle laitier\c1.csv", True

Le résultat :mes données ne sont plus rangées champ par champ mais sont regroupées les unes aprés les autres séparées tout de même par des " ; " et ce dans des colonnes que Access nomme F1/F2/F3/F4/F5/F6 !

Je vous joins ma table via Word (je ne sais pas faire autrement) mieux vaut une image que de grandes explications.

Pour info, mon fichier source est un Excel.csv

Si vous aviez une petite idée pour m'aider ...

D'avance merci.
14/03/2013, 22h48
Dixies

Encore moi.

Je cherche depuis des heures le pourquoi du comment et je me suis rendu compte que le changement de colonne s'effectue à chaque décimale.:D

Par exemple dans la pièce jointe, la première ligne et le dernier nombre de la première colonne est : 26

Or normalement ma donnée c'est : 26,2 puisque la décimale est partie dans la colonne F2.

Et ainsi de suite pour 36,3 .....28,4 etc.

Chose curieuse, lorsque j'opère l'importation manuellement avec l'assistant tout est nickel.

Une petite idée ?

Merci.
15/03/2013, 13h23
mumen

Qu'est ce que tu as dans ta variable FormatImportCL ?

Quand tu importes manuellement, tu peux enregistrer le format que tu as mis au point. C'est cela que tu passes dans ta variable FormatImportCL ?
15/03/2013, 14h45
Dixies

Bonjour mumen

Citation:

Qu'est ce que tu as dans ta variable FormatImportCL ?

Quand tu importes manuellement, tu peux enregistrer le format que tu as mis au point. C'est cela que tu passes dans ta variable FormatImportCL ?

Oui c'est exactement ça !

Merci.
15/03/2013, 16h18
mumen

Citation:

Oui c'est exactement ça !

Heu... c'est exactement ça la description de ton problème ? ou la solution à ton problème ?
15/03/2013, 17h38
Dixies

J'ai, avant toute chose réalisé un import manuel avec l'assistant et pris soins d'enregistrer, via les spécifications d'import, mon format d'import sous le nom FormatImportCL.

Et c'est cette variable que je rappelle dans mon code.

Qu'est ce que j'ai dedans : en fait je "saute" deux champs qui ne me sont pas utiles. Sinon mon format de fichier est "Délimité"
-----> séparateur de champ : " ; "
-----> symbole décimal : " , "
-----> délimiteur de texte : aucun
-----> page code : europe occidentale (DOS)

Ce même format en import manuel fonctionne trés bien (j'ai bien un champ par colonne et les bonnes valeurs dedans) mais pas par VBA.:aie:

Partout où je suis allé cherché des infos sur ce site ou ailleurs, la syntaxe de ce code est la même.

Code:

DoCmd.TransferText acImport, FormatImportCL, "MaTable", "F:\Mes documents\Elevage\Contrôle laitier\c1.csv", True

Et à les lire, ça marche meis pas chez moi.

Ce code nécessite t-il une référence VBA particulière ?
Est-ce que ça vient de mon fichier source Excel.csv (même si l'import manuel fonctionne) ?

Merci.
15/03/2013, 18h13
mumen

Au lieu de :

Code:

DoCmd.TransferText acImport, FormatImportCL, "MaTable", "F:\Mes documents\Elevage\Contrôle laitier\c1.csv", True

Essaye comme ça :

Code:

DoCmd.TransferText acImport, "FormatImportCL", "MaTable", "F:\Mes documents\Elevage\Contrôle laitier\c1.csv", True
15/03/2013, 19h48
Dixies

Hé oui ...... !!! :ccool:

Ca marche !!!

Merci pour ta patience et ..... pour la solution.

Bonne soirée.
15/03/2013, 19h58
mumen

Un petit conseil t'aurait évité cette problématique.

Dans les options de VBA, coche "Déclaration des variables obligatoires"

et pour les modules déjà crées, ajoute au tout début, juste après la ligne Option Compare Database, la ligne :

Code:

Option Explicit

Ceci t'aurais indiqué en erreur de compilation que la variable FormatImportCL n'existait pas. Comme Option Explicit n'était pas déclaré dans ton module, VBA à cru que FormatImportCL était une variable légitime, mais qui était vide. Donc ton TransfertText s'effectuait sans le format prédéfini. A ce détail près, tu avais tout bon.
15/03/2013, 21h13
Dixies

Effectivement je viens de faire ces modifications :

Citation:

Un petit conseil t'aurait évité cette problématique.

Dans les options de VBA, coche "Déclaration des variables obligatoires"

et pour les modules déjà crées, ajoute au tout début, juste après la ligne Option Compare Database, la ligne :

Code:

Option Explicit

et effectivement j'ai ceci :

Citation:

Ceci t'aurais indiqué en erreur de compilation que la variable FormatImportCL n'existait pas.

Merci pour ce tuyau. C'est effectivement plus facile de trouver des solutions quand on sait où est le problème .... Je prends note !!:D

Le développement Access est un métier .... et ce n'est pas le mien ...:roll:

Merci pour ces explications. Et de me les avoir données instinctivement.
24/09/2014, 00h42
bernard.b.laurent

import de fichier csv trié

Bonjour,
je fais des imports de fichiers .csv avec la commande transfertext mais le resultat de l'import en table ne suit pas toujours l'ordre dans lequel sont les données dans le fichier source. Y a-t-il une astuce pour que l'ordre des lignes du fichier source soit TOUJOURS respecté en résultat ?
Merci d'avance pour votre aide
Bernard