Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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 ?

6 réponses
Avatar
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

6 réponses

Avatar
Raymond [mvp]
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




Avatar
tintin92
"Raymond [mvp]" a écrit dans le message de
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





Avatar
Raymond [mvp]
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


Avatar
tintin92
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









Avatar
tintin92
"Raymond [mvp]" a écrit dans le message de
news:%
Tu veux importer et tu as mis l'option export, est-ce une erreur ?



Oui, c'est mon erreur.

Merci.

Tintin92

Avatar
a-paul
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
FormatÞlimited(;)
Col01="Au_ID" Integer
Col11="Author" Char Width 50
Col21="Year Born" Short


'Sans le nom des champs
[Authors.CSV]
ColNameHeader = False
CharacterSet = 1252
FormatÞlimited(;)
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