Tester l'existence d'un répertoire VBA

Bonjour,

Je souhiaterai pouvoir tester l'existence d'un répertoire, en VBA.
Comment puis-je faire?

Merci

bonjour

Tu peux essayer

Code:

---

1 2 3

Sub Test() MsgBox DossierExiste("C:\Nom dossier") End Sub

---

Code:

---

1 2 3

Function DossierExiste(NomDossier As String) As Boolean DossierExiste = Dir(NomDossier, vbDirectory) <> "" End Function

---

michel

Code:

---

1 2 3 4

On error resume next Chdir "C:\LeRep1\LeRep2\LeRep3\LeRep3" if err then MkDir "C:\LeRep1\LeRep2\LeRep3\LeRep3" 'pour le créer On error goto 0

---

Attention, regarde dans l'aide, MkDir n'accepte pas de créer un répertoire sur un autre lecteur que le lecteur actif (celui du fichier contenant ta macro)
Pour ça tu as chdrive ;)
A+