Discussion :

[sebeni]

Bonjour,

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

Merci

[SilkyRoad]

bonjour

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

michel

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+