'Dans la section générale de la feuille
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Private Sub Command1_Click()
'VbAndJava 1999/2000
'Guerrault Yonni
'E-Mail : Yonni4@iFrance.com
Dim Security As SECURITY_ATTRIBUTES
Ret& = CreateDirectory("C:\Directory", Security)
If Ret& = 0 Then MsgBox "Erreur : Ne peut pas créer le répertoire !", vbCritical + vbOKOnly
End Sub