j'ai des fichiers C:\aa\in\info1.txt, info2.txt , infoZY.txt etc qui
contiennent des données (3 champs) séparées par des ";" les enregistrements
étant délimités par des signes "fin de paragraphe"
Je souhaite importer ces fichiers txt dans la table1 de ma db sous 3 champs
texte.
Je parviens à le faire individuellement via l'assistant d'importation et via
une macro mais n'y aurait-il pas moyen d'importer tous les fichiers txt
automatiquement via une commande VBA et une boucle pour importer
C:\aa\in\info*.txt ?
Qui pourrait m'écrire le code ?
Merci d'avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
Pour ce qui est de la boucle sur tous les fichiers, tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html?Menu=7&Page=FileExistDir
Ensuite, tu peux voir dans le code qu'il y a une boucle, ce qui t'interesse, c'est la ligne : strFile = .FoundFiles(intFile) Il te suffit de mettre après cette ligne, une instruction du genre : DoCmd.TransferText acImportFixed, "ImportPerso", "taTable", _ strFile, True
Pour le format ImportPerso, il te faut le faire avec le bouton Avancé lorsque tu fais un import manuelle d'un de tes fichiers.
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jlleybaert" a écrit dans le message de news: 45077331$0$31470$
Bonjour à toutes et tous,
j'ai des fichiers C:aaininfo1.txt, info2.txt , infoZY.txt etc qui contiennent des données (3 champs) séparées par des ";" les enregistrements étant délimités par des signes "fin de paragraphe" Je souhaite importer ces fichiers txt dans la table1 de ma db sous 3 champs texte. Je parviens à le faire individuellement via l'assistant d'importation et via une macro mais n'y aurait-il pas moyen d'importer tous les fichiers txt automatiquement via une commande VBA et une boucle pour importer C:aaininfo*.txt ? Qui pourrait m'écrire le code ? Merci d'avance.
Bonjour
Pour ce qui est de la boucle sur tous les fichiers, tu peux t'inspirer de
ceci :
http://access.jessy.free.fr/index.html?Menu=7&Page=FileExistDir
Ensuite, tu peux voir dans le code qu'il y a une boucle, ce qui t'interesse,
c'est la ligne :
strFile = .FoundFiles(intFile)
Il te suffit de mettre après cette ligne, une instruction du genre :
DoCmd.TransferText acImportFixed, "ImportPerso", "taTable", _
strFile, True
Pour le format ImportPerso, il te faut le faire avec le bouton Avancé
lorsque tu fais un import
manuelle d'un de tes fichiers.
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"jlleybaert" <jlleybaert@skynet.be> a écrit dans le message de news:
45077331$0$31470$ba620e4c@news.skynet.be...
Bonjour à toutes et tous,
j'ai des fichiers C:aaininfo1.txt, info2.txt , infoZY.txt etc qui
contiennent des données (3 champs) séparées par des ";" les
enregistrements étant délimités par des signes "fin de paragraphe"
Je souhaite importer ces fichiers txt dans la table1 de ma db sous 3
champs texte.
Je parviens à le faire individuellement via l'assistant d'importation et
via une macro mais n'y aurait-il pas moyen d'importer tous les fichiers
txt automatiquement via une commande VBA et une boucle pour importer
C:aaininfo*.txt ?
Qui pourrait m'écrire le code ?
Merci d'avance.
Pour ce qui est de la boucle sur tous les fichiers, tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html?Menu=7&Page=FileExistDir
Ensuite, tu peux voir dans le code qu'il y a une boucle, ce qui t'interesse, c'est la ligne : strFile = .FoundFiles(intFile) Il te suffit de mettre après cette ligne, une instruction du genre : DoCmd.TransferText acImportFixed, "ImportPerso", "taTable", _ strFile, True
Pour le format ImportPerso, il te faut le faire avec le bouton Avancé lorsque tu fais un import manuelle d'un de tes fichiers.
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jlleybaert" a écrit dans le message de news: 45077331$0$31470$
Bonjour à toutes et tous,
j'ai des fichiers C:aaininfo1.txt, info2.txt , infoZY.txt etc qui contiennent des données (3 champs) séparées par des ";" les enregistrements étant délimités par des signes "fin de paragraphe" Je souhaite importer ces fichiers txt dans la table1 de ma db sous 3 champs texte. Je parviens à le faire individuellement via l'assistant d'importation et via une macro mais n'y aurait-il pas moyen d'importer tous les fichiers txt automatiquement via une commande VBA et une boucle pour importer C:aaininfo*.txt ? Qui pourrait m'écrire le code ? Merci d'avance.
bernard065
Bonsoir, Merci pour votre aide. Désolé pour les remerciements tardifs dûs à des problèmes de messagerie. JL
Bonjour
Pour ce qui est de la boucle sur tous les fichiers, tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html?Menu=7&Page=FileExistDir
Ensuite, tu peux voir dans le code qu'il y a une boucle, ce qui t'interesse, c'est la ligne : strFile = .FoundFiles(intFile) Il te suffit de mettre après cette ligne, une instruction du genre : DoCmd.TransferText acImportFixed, "ImportPerso", "taTable", _ strFile, True
Pour le format ImportPerso, il te faut le faire avec le bouton Avancé lorsque tu fais un import manuelle d'un de tes fichiers.
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jlleybaert" a écrit dans le message de news: 45077331$0$31470$
Bonjour à toutes et tous,
j'ai des fichiers C:aaininfo1.txt, info2.txt , infoZY.txt etc qui contiennent des données (3 champs) séparées par des ";" les enregistrements étant délimités par des signes "fin de paragraphe" Je souhaite importer ces fichiers txt dans la table1 de ma db sous 3 champs texte. Je parviens à le faire individuellement via l'assistant d'importation et via une macro mais n'y aurait-il pas moyen d'importer tous les fichiers txt automatiquement via une commande VBA et une boucle pour importer C:aaininfo*.txt ? Qui pourrait m'écrire le code ? Merci d'avance.
Bonsoir,
Merci pour votre aide. Désolé pour les remerciements tardifs dûs à des
problèmes de messagerie.
JL
Bonjour
Pour ce qui est de la boucle sur tous les fichiers, tu peux t'inspirer de
ceci :
http://access.jessy.free.fr/index.html?Menu=7&Page=FileExistDir
Ensuite, tu peux voir dans le code qu'il y a une boucle, ce qui t'interesse,
c'est la ligne :
strFile = .FoundFiles(intFile)
Il te suffit de mettre après cette ligne, une instruction du genre :
DoCmd.TransferText acImportFixed, "ImportPerso", "taTable", _
strFile, True
Pour le format ImportPerso, il te faut le faire avec le bouton Avancé
lorsque tu fais un import
manuelle d'un de tes fichiers.
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"jlleybaert" <jlleybaert@skynet.be> a écrit dans le message de news:
45077331$0$31470$ba620e4c@news.skynet.be...
Bonjour à toutes et tous,
j'ai des fichiers C:aaininfo1.txt, info2.txt , infoZY.txt etc qui
contiennent des données (3 champs) séparées par des ";" les
enregistrements étant délimités par des signes "fin de paragraphe"
Je souhaite importer ces fichiers txt dans la table1 de ma db sous 3
champs texte.
Je parviens à le faire individuellement via l'assistant d'importation et
via une macro mais n'y aurait-il pas moyen d'importer tous les fichiers
txt automatiquement via une commande VBA et une boucle pour importer
C:aaininfo*.txt ?
Qui pourrait m'écrire le code ?
Merci d'avance.
Bonsoir, Merci pour votre aide. Désolé pour les remerciements tardifs dûs à des problèmes de messagerie. JL
Bonjour
Pour ce qui est de la boucle sur tous les fichiers, tu peux t'inspirer de ceci : http://access.jessy.free.fr/index.html?Menu=7&Page=FileExistDir
Ensuite, tu peux voir dans le code qu'il y a une boucle, ce qui t'interesse, c'est la ligne : strFile = .FoundFiles(intFile) Il te suffit de mettre après cette ligne, une instruction du genre : DoCmd.TransferText acImportFixed, "ImportPerso", "taTable", _ strFile, True
Pour le format ImportPerso, il te faut le faire avec le bouton Avancé lorsque tu fais un import manuelle d'un de tes fichiers.
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"jlleybaert" a écrit dans le message de news: 45077331$0$31470$
Bonjour à toutes et tous,
j'ai des fichiers C:aaininfo1.txt, info2.txt , infoZY.txt etc qui contiennent des données (3 champs) séparées par des ";" les enregistrements étant délimités par des signes "fin de paragraphe" Je souhaite importer ces fichiers txt dans la table1 de ma db sous 3 champs texte. Je parviens à le faire individuellement via l'assistant d'importation et via une macro mais n'y aurait-il pas moyen d'importer tous les fichiers txt automatiquement via une commande VBA et une boucle pour importer C:aaininfo*.txt ? Qui pourrait m'écrire le code ? Merci d'avance.
