Vérifier si chemin reseau accessible

Bonjour

Dans mon code j'ai créé une constante qui correspond à un chemin réseau.

Avant de lancer ma procédure je voudrais vérifier si ce chemin est accessible.

Pouvez vous m'aider.

Merci

Salut,

Voici un code qui devrait répondre à ton attente :

Option Explicit
Sub Essai()
Dim i, Chemin As String

Chemin = "U:\"
On Error Resume Next
i = Dir(Chemin & "*.*")

If i = "" Then MsgBox "Ce chemin n'existe pas"

End Sub

Bonnes salutations.

Merci

C'est impeccable