Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
Public sNomRep
Sub MKDossier()
sNomRep = "C:\Test1\Test2"
CreationDossier
End Sub
Sub CreationDossier() '(sNomRep As String)
'ChDrive "D"
SHCreateDirectoryEx 0&, sNomRep, 0&
End Sub