[RESOLU] Fonction Dossier existe plante

[cp4]

Bonjour🙂,

Au fil de mes recherches, j'ai trouvé ce code pour vérifier si un dossier existe.
Cependant, le code plante avec ce message

dans la fonction (ligne ***). Pourquoi?

Sub Test1()
    MsgBox DossierExiste("C:\Documents and Settings\Nom Dossier")
End Sub
Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbSystem + vbDirectory + vbHidden) <> ""   '***
End Function

NB: le dossier "Nom Dossier" n'existe pas sur ma machine, le code devrait renvoyer 'False' or ce n'est pas le cas. Avec un code similaire mais pour un fichier, le code renvoie bien 'Faux'

Sub Test()
    MsgBox FichierExiste("C:\Documents and Settings\dossier\dataBase.mdb")
End Sub
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function

En vous remerciant par avance.

Bonne journée😉

 

[Lone-wolf]

Bonjour Cp4

Modifie le chemin avec ceci pour voir "C:\Users\Nom dossier". Si tu vas dans le disque, pour aller aux documents and setting, il y a Utilisateur, que tu n'as pas inclu dans le chemin.

 

[cp4]

Bonjour Cp4

Modifie le chemin avec ceci pour voir "C:\Users\Nom dossier". Si tu vas dans le disque, pour aller aux documents and setting, il y a Utilisateur, que tu n'as pas inclu dans le chemin.

Bonjour Lone-wolf😉,
C'est exactement ça, j'ai remplacé par users comme tu me le conseilles et ça fonctionne.
Merci beaucoup.😎
Bonne journée.