Chercher un document dans un dossier

Bonjour

J'ai ecris le code ci dessous qui en focntion du code entré dans l'userform ouvre le document correspondant qui se trouve dans un dossier.

Maintenant j'ai souhaité ajouter une instruction qui renvoit un msg d'erreur si le code entré ne correspond à aucun document sauf que visiblement il comprend pas mon code car il m'indique que le document est absent toujours maintenant....

Quelqu'un peux m'aider ?

If CheckBox3.Value = True Then 'Si coché ...
    LOG = "s:\mesdocuments\" & TextBox2.Value
    txt = Dir("LOG")
        If txt = "" Then
        MsgBox "Ce code ne correspond à aucun dossier"
        Else
        ThisWorkbook.FollowHyperlink LOG
        End If
 End If

Bonjour,

Essaie en supprimant les guillemets :

txt = Dir(LOG)

Bonne journée

Bouben

J'y avais déjà pensé et ça ne marche toujours pas

Sûrement une erreur dans le chemin saisi

Normalement, si le fichier existe bien, le code devrait fonctionner .

Bonjour,

Es-tu certain d'avoir dans TextBox2.Value l'extension du fichier ?

Je n'ai pas pensé à l'extension !!

je vais tester des que possible et te reviens

En fait non ça va rien changer; Mon code c'est pour ouvrir un dossier et non un fichier donc il y a pas d'extension à ajouter.

Le code est bon je l'ai tester

Si c'est pour vérifier le chemin d'un dossier, c'est normal !

Il faut ajouter vbDirectory :

txt = Dir(LOG, vbDirectory)