Problème de chemin d'acces

Question

Bonjour,

Je rencontre un petit problème.

Déjà voici mon code

/code
 Dim rep, Nom_Tbl As String, Dossier As String
'obtient le premier fichier ou répertoire qui est dans "c:"
rep = Dir(Dossier & "*.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

Alors je m'explique l'importation de ms fichiers csv fonctionne bien la création de mes tables aussi.
Mais il ne va me chercher les fichier csv que s'ils sont dans le dossier mes documents or j'aimerais les mettres sur un lecteur réseau pour plus de faciliter 

Comment faire pour qu'il aille chercher les fichiers sur mon lecteur réseau.

cs_Jack · Answer

Salut
Bah tout dépend de ce que tu mets dans ta variable Dossier !
D'après tes lignes de programmes, il doit y avoir qqchose entre tes Dim et ta première utilisation de Dir, mais tu nous l'a caché ...
Mets  Dossier = "N:"  avant de lancer ce programme pour aller lire sur le disque mappé N

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)

Problème de chemin d'acces

1 réponse

Votre réponse

Discussions similaires