vérification si répertoire existe

W

wape

Guest

• 24 Novembre 2003

• #2

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

 

Vote positif 0 Vote négatif

B

ben

Guest

• 24 Novembre 2003

• #3

Je vais essayer merci beaucoup !

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 24 Novembre 2003

• #4

bonjour,

une idée idiote :

Dim sDir As String

sDir = "C:\MonRépertoire"

on error resume next
MkDir sDir


A+

 

Vote positif 0 Vote négatif