Problème de Path

JulienB -  
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai ce code et mon idée est de tester s'il existe un Path qui correspond à ce que l'utilisateur aura renseigné dans deux cases (A1 et A2):


chemin = ThisWorkbook.Path
txt = (chemin & "\" & Sheets(1).Range("A2").Text & "\" & Sheets(1).Range("A1").Text)
'/If (Dir(chemin & "\" & Sheets(1).Range("A2").Text & "\" & Sheets(1).Range("A1").Text & "\")) = "" Then
If Dir(txt) = "" Then
'/If Exists(txt) Then
'/If Len(txt) <> 0 Then
MsgBox "Pas de fichiers"
Else
...



et ayant testé des chemins existants sur mon disque, je ne comprend pas pourquoi ça m'affiche PAS DE FICHIERS

Pouvez-vous me dire s'il vous plait, pourquoi ce code n'entre pas dans le ELSE...

Cordialement.


1 réponse

Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

Sans doute parce que tu te trompes dans la syntaxe de "txt".
Essaie ça et tu verras à quoi ça doit ressembler :

MsgBox (ActiveWorkbook.FullName)
MsgBox (Dir(ActiveWorkbook.FullName))
MsgBox (Dir(ActiveWorkbook.FullName & "e"))'le fichier n'existe pas

A+
0