Quel est le code VBA pour importer des données externes d'un fichier texte.csv dans une table ACCESS créée lors de l'import ?

Le
tintin92
Bonjour,

Quel est le code code VBA pour importer des données externes d'un fichier
texte.csv, dans une table ACCESS, créée lors de l'import ?
Je sais déjà créer une nouvelle table ACCESS par import de données d'un
fichier csv en faisant :
Fichier/Données externes/Importer etc
Je cherche mainteneant à réaliser la même opération, mais par code VBA.

Merci.

Tintin92
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #5481011
Bonsoir.

voir la commande: DoCmd.TransferText .......

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"tintin92" a écrit dans le message de news:
417a8d12$0$3781$
Bonjour,

Quel est le code code VBA pour importer des données externes d'un fichier
texte.csv, dans une table ACCESS, créée lors de l'import ?
Je sais déjà créer une nouvelle table ACCESS par import de données d'un
fichier csv en faisant :
Fichier/Données externes/Importer... etc...
Je cherche mainteneant à réaliser la même opération, mais par code VBA.

Merci.

Tintin92




tintin92
Le #5480961
"Raymond [mvp]" news:%
Bonsoir.

voir la commande: DoCmd.TransferText .......



Merci.
Hélas je crois que je ne suis pas arrivé au bout de mes peines.
Dur les débuts avec Access.

J'ai maintenant du code VBA qui ne me renvoie pas d'erreur :


Private Sub Commande0_Click()
DoCmd.TransferText acExportDelim, "SpecifImportIndicsAB", _
"01-ConditionsEntrees",
"K:1ABBatchReports1-ConditionsEntrees-02.csv", True
End Sub

Ce code ne me renvoie pas d'erreur, mais la table access reste vide !
Aurriez-vous une solution à ce problème ?

Merci

Tintin92



--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum





Raymond [mvp]
Le #5480951
Tu veux importer et tu as mis l'option export, est-ce une erreur ?
sinon la syntaxe est bonne, sous réserve des bons noms de fichier et que les
noms de champs soient bien indiqués sur la 1ere ligne et que le fichier
spécification soit bien présent et correct par rapport au csv.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"tintin92" a écrit dans le message de news:
417aa844$0$32551$
Merci.
Hélas je crois que je ne suis pas arrivé au bout de mes peines.
Dur les débuts avec Access.

J'ai maintenant du code VBA qui ne me renvoie pas d'erreur :


Private Sub Commande0_Click()
DoCmd.TransferText acExportDelim, "SpecifImportIndicsAB", _
"01-ConditionsEntrees",
"K:1ABBatchReports1-ConditionsEntrees-02.csv", True
End Sub

Ce code ne me renvoie pas d'erreur, mais la table access reste vide !
Aurriez-vous une solution à ce problème ?

Merci

Tintin92


tintin92
Le #5480931
J'ai trouvé mon erreur !!


Merci.
Hélas je crois que je ne suis pas arrivé au bout de mes peines.
Dur les débuts avec Access.

J'ai maintenant du code VBA qui ne me renvoie pas d'erreur :


Private Sub Commande0_Click()
DoCmd.TransferText acExportDelim <--- L'ERREUR EST LA ( C'est con un
ordinateur, ça fait ce qu'on lui dit ) , "SpecifImportIndicsAB", _

"01-ConditionsEntrees",
"K:1ABBatchReports1-ConditionsEntrees-02.csv", True
End Sub

Ce code ne me renvoie pas d'erreur, mais la table access reste vide !
Aurriez-vous une solution à ce problème ?

Merci

Tintin92



--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum









tintin92
Le #5480921
"Raymond [mvp]" news:%
Tu veux importer et tu as mis l'option export, est-ce une erreur ?



Oui, c'est mon erreur.

Merci.

Tintin92

a-paul
Le #19154071
tintin92 a écrit le 23/10/2004 à 18h55 :
Bonjour,

Quel est le code code VBA pour importer des données externes d'un
fichier
texte.csv, dans une table ACCESS, créée lors de l'import ?
Je sais déjà créer une nouvelle table ACCESS par import de
données d'un
fichier csv en faisant :
Fichier/Données externes/Importer... etc...
Je cherche mainteneant à réaliser la même opération,
mais par code VBA.

Merci.

Tintin92


ça fonctionne par fichier-> données externes-> importer:
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
Pascript site http://multibases.site.voila.fr

Ton fichier schema.ini

[Authors.CSV]
ColNameHeader = True
CharacterSet = 1252
Formatlimited(;)
Col01="Au_ID" Integer
Col11="Author" Char Width 50
Col21="Year Born" Short


'Sans le nom des champs
[Authors.CSV]
ColNameHeader = False
CharacterSet = 1252
Formatlimited(;)
Col01="Au_ID" Integer
Col11="Author" Char Width 50
Col21="Year Born" Short

DoCmd.TransferText acExportDelim, "", "Authors", MonnBureau$ & "Authors.CSV", True

DoCmd.TransferText acImportDelim, "Authors", MonnBureau$ & "Authors.CSV", True
Publicité
Poster une réponse
Anonyme