Problème de chemin d'acces

Signaler
Messages postés
7
Date d'inscription
jeudi 8 septembre 2005
Statut
Membre
Dernière intervention
2 août 2007
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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.

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
75
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)