Automatisation d'un import txtRésolu

Question

Bonjour,
c'est un veritable sos que je vous lance, je dois créer une base access à partir de 5000 fichiers txt de tailles diverses mais heureusement de format identique.
J'ai créer un bouton lié à une macro pour importer 1 fichier selon les specificités que j'ai déterminé et ça fonctionne bien mais je n'ai encore jamais fait de programmation vba et malgré les aides et cie d'access je ne sais pas comment programmer une boucle d'import(DoCmd.TransfertText je crois ?!)
Tous les fichiers ont des noms differents et se trouvent dans le même dossier
Merci de toute l'aide que vous pourrez d'apporter

crenaud76 · Accepted Answer

Voici un bout de code pour énumérer les fichiers TXT contenu dans un répertoire donné. Ne connaissant pas le VBA Access, je ne connais pas le code pour importer un fichier texte mais visiblement tu l'as fait pour un fichier donc tu devrait t'en sortir avec cela ...

Dim Fic As String

Fic = Dir("c:	oto\*.txt")
While Fic <> ""
  ' Commande pour importer le fichier dont le chemin est dans la variable Fic
  Fic = Dir
Wend

cs_Jack · Answer

Salut
Manque le Do devant le While
Le nom du fichier a exploiter dans l'import sera  C:\Toto\ & Fic

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

crenaud76 · Answer

Merci Jack !! J'étais pas en forme au moment ou j'ai pondu ces lignes de code !!

calipan · Answer

bin je doit vraiment pas être douée

quand je fais avec do while .... Wend j'ai un message d'erreur "Wend sans while" alors j'ai essayé avec loop mais là il me dit que je ne peut pas importer le fichier désigné !!!


Voici mon code :
IMPORTSAP est ma specification d'import et details 2005 le nom de ma table
Qu'est ce qu'il aime pas ???

Sub macroImport()

Dim Fic As String

Fic = Dir("C:\Mes Documents\Details\*.txt")
Do While Fic <> ""

    DoCmd.TransferText acImportDelim, "IMPORTSAP", "Details 2005", "C:\Mes Documents\Details\&Fic"
    
    Fic = Dir
Loop

End Sub

calipan · Answer

Super ça fonctionne j'avais juste mal placé un guillemet :
"C:\Mes Documents\Details\&Fic"
au lieu de
"C:\Mes Documents\Details"& Fic

J'ai créer ma base en 11 minutes chrono pour 5000 fichiers txt c'est génial

Un grand merci à vous 2 pour vos conseils éclairés

Automatisation d'un import txt

5 réponses

Discussions similaires