Comment créer des répertoires et sous répertoires ?

Avec Excel 2000, tu peux utiliser la fonction Split, et donc la fonction personnalisée ci-dessous. Elle crée un répertoire et tous ses répertoires parents s'ils n'existent pas. Elle peut aussi ajouter un ou des répertoires à un répertoire existant.

dans un module standard

 'crée un répertoire et ses répertoires parents s'ils n'existent pas  
'si aucun lecteur n'est précisé, la création est tentée dans le  'lecteur courant 
 'renvoie Vrai si l'opération réussit, Faux si elle échoue    

Function MakeDirEx(DirPath$) As Boolean 'fs
 Dim i%, tmp, Arr
 
 If InStr(1, DirPath, ":") = 0 Then
  Arr = Split(CurDir & DirPath, "")
 Else: Arr = Split(DirPath, "")
 End If
 
 tmp = Arr(0)
 For i = LBound(Arr) + 1 To UBound(Arr)
  If Arr(i) <> "" Then
   tmp = tmp & "" & Arr(i)
   On Error Resume Next
   MkDir tmp
   On Error GoTo 0
  End If
 Next
 
 If Dir(DirPath, vbDirectory) = "" Then
  On Error Resume Next
  RmDir Arr(0) & "" & Arr(1)
  On Error GoTo 0
 Else
  MakeDirEx = True
 End If
 
 End Function

sub test()
 dossier$ = "dossier1\dossier2\dossier3"
 MsgBox MakeDirEx(dossier)
 dossier = "dossier1\dossier2\dossier4"
 MsgBox MakeDirEx(dossier)
 end sub