Problème de Path

JulienB -  
Zoul67 Messages postés 2001 Statut Membre -
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 2001 Statut Membre 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