VBA erreur 52 avec fonction dir

cassis1314

XLDnaute Nouveau
Bonjour,

Je boucle une macro sur tous les fichiers d'un répertoire, cela marche très bien quand j'écris

chemin = "C\xxx"

fichier = Dir (chemin & "*.*")

Cependant, j'essaye pour que ces macros soient utilisables par d'autres, de mettre le chemin dans une cellule excel et d'aller la chercher dans mon code qui est donc :


chemin = Range("B3").value2


MsgBox chemin, vbInformation


fichier = Dir(chemin & "*.*")

Et quand je lance cela, il m'afficher le bon chemin mais l'erreur 52 apparaît "nom ou numéro de fichier incorrect".

Savez vous comment faire ?

merci d'avance
 

cassis1314

XLDnaute Nouveau
Alors, j'ai réécrit le chemin dans ma cellule et cette fois ci ça marche, j'ai donc comparé les deux et il semble qu'il y a un caractère de plus dans un des chemins mais je ne le vois pas, je joins le fichier ou il y a les deux chemins dans les cellules.
 

Pièces jointes

  • test.xlsx
    8.6 KB · Affichages: 42

Dudu2

XLDnaute Barbatruc
Bonjour,
Je récupère cette même Erreur 52 sur un Len(Dir(<répertoire>, vbDirectory)) dans un code utilisé.
Ça n'a pas de sens puisque précisément si le <répertoire> n'existe pas Dir rend "".
Pourquoi donc se plante-t-il ?
En plus je n'arrive pas à reproduire.
 

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 997
Membres
101 861
dernier inscrit
Jerem28630