vérification si répertoire existe

[ben]

Bonjour à tous

Je cherche un code qui à l'ouverture de mon classeur, vérifie si un répertoire sur c: existe, si celui-ci n'existe pas de le créer.

merci pour votre aide

 

[wape]

Bonjour ben et le forum,

Essaye ceci :

Private Sub Workbook_Open()

Dim sDir As String

sDir = "C:\MonRépertoire"

If Len(Dir(sDir, vbDirectory)) = 0 Then
MkDir sDir
MsgBox "Le répertoire " & sDir & " a été créé !"
Else
MsgBox "Le répertoire " & sDir & " existe déjà !"
End If

End Sub


Slts

wape

 

[ben]

Je vais essayer merci beaucoup !

 

[Sylvain]

bonjour,

une idée idiote :

Dim sDir As String

sDir = "C:\MonRépertoire"

on error resume next
MkDir sDir


A+