importation de plusieurs fichier texte dans access

Question

Bonjour je cherche à importer plusieurs fichiers texte dans access 

Voici le code qu j'ai trouvé sur le net

/code
   Dim rep, Nom_Tbl As String
'obtient le premier fichier ou répertoire qui est dans "m:"
rep =  Dir("M:\Informatique\Procédures\Outil Suivi Commercial" & "*.csv", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
On Error GoTo Erreur
Do While (rep <> "")
     'teste si c'est un fichier ou un répertoire
     If (GetAttr(Dossier & rep) And vbDirectory) = vbDirectory Then
         MsgBox "Répertoire " & rep
     Else
         Nom_Tbl = Left(rep, Len(rep) - 4)
'**********************************************
'* ICI tu met le code pour importer ou lier un fichier
'**********************************************


         DoCmd.TransferText acImportDelim, "Export Spécification d'importation"
 Nom_Tbl  , Dossier & rep, False, rep & "!"


     End If
Suite:
     'passe à l'élément suivant
     rep  = Dir
Loop
GoTo Fin
Erreur:
     MsgBox "Erreur " & Dossier & rep & " " & Err.Number & " "
Err.Description
     Resume Suite
Fin:

/code

Le souci c'est a la marque rouge il me met attendu fonction sud ou properties quelqu'un peut m'aider

mortalino · Answer

Salut,

tel que tu extrais les données avec Nom_Tbl = Left(rep, Len(rep) - 4), 
il te sort TOUT les chemin, depuis M. Perso, j'aurai fait ça (mais je suppose, connais pas le nom de tes tables) :
Mid(rep, InStrRev(rep, "") + 1, Len(rep) - (4 + InStrRev(rep, "")))

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

maxwel2005 · Answer

Merci


Même avec ta solution ca revient au même.


Si ca peut aider le chemin M pointe vers un répertoire réseau.


 


ET au niveau de la ligne avec la marque rouge j'ai cette erreur


Erreur de compilation Usb,Function,Propertie attendue

cs_Jack · Answer

Salut

         DoCmd.TransferText acImportDelim, "Export Spécification d'importation"
         Nom_Tbl , Dossier & rep, False, rep & "!"

S'agit-il de la même ligne de code ?
On ne peut pas couper une ligne comme cela : il faut utiliser le symbole _ en fin de la 1ere ligne
Idem pour la MsgBox de ta gestion d'erreur :
      ... Err.Number & " " & _
      Err.Description

PS : remplace le vilain Goto Fin par Exit Sub ou Exit Function

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

maxwel2005 · Answer

Merci à vous pour votre aide.
Le problème de l erreur est réglé mais un autre souci je pensais que avec cette cmmande eil allair me créer les tables mais non donc comment faire

DoCmd.TransferText acImportDelim, "Export Spécification d'importation" Nom_Tbl , Dossier & rep, False, rep & "!"

Importation de plusieurs fichier texte dans access

4 réponses

Votre réponse

Discussions similaires