Probleme existence racine Repertoire

[carlos]

Bonjour

J'ai repris sur le net ce code qui insiste sur la NON existence de C etc... mais ?
Voir PJ

Sub ExistenceRacine()
If Dir("C:", vbVolume) = vbNullString Then
MsgBox "Le lecteur reseau n'existe pas"
MsgBox ThisWorkbook.Path
Else
MsgBox "lecteur reconnu"
End If
End Sub
Sub ExistenceRepertoire()
Dim chemin As String
chemin = "C:\Program Files"
If Dir(chemin, vbVolume) = vbNullString Then

MsgBox Left(ThisWorkbook.Path, 1)
Else
MsgBox "lecteur reconnu"
End If
End Sub

Merci

 

[skoobi]

Re : Probleme existence racine Repertoire

Bonjour,

ici: chemin = "C:\Program Files" tu fais appel à un répertoire donc:

If Dir(chemin, [B][COLOR=blue]vbDirectory[/COLOR][/B]) = vbNullString Then

 

[carlos]

Re : Probleme existence racine Repertoire

Bonjour Skoobi
Merci

j'ai une erreur 52: Nom ou numero de fichier incorrecte si je lui donne un chemin inexistant par exemple : chemin = "M:\Program Files"

comment gerer cette erreur ?

Je ne comprends pas trop!


Carlos

 

[Jam]

Re : Probleme existence racine Repertoire

Bonjour Carlos, Skoobi,

Je ne reproduis pas l'erreur avec ton code. Peux-tu en dire plus ?

Bon courage

 

[carlos]

Re : Probleme existence racine Repertoire

Bonjour Jam

Voici le fichier, sur le bouton Existence repertoire

Merci

 

[carlos]

Re : Probleme existence racine Repertoire

Re avec fichier

 

[carlos]

Re : Probleme existence racine Repertoire

Bonjour le forum

J'ai toujours ce probleme d'erreur 52 sur le fichier du dernier post.
J'ai volontairement mis sur un lecteur improbable.
Comment gerer cette erreur?

Merci

Carlos