Discussion :

[ExcelLiod]

Bonjour à tous !

J'ai besoin de votre aide pour la finalisation d'un tableau qui me permet de créer des dossiers avec des sous dossiers prédéfini en colonne A,B,C.

Voici la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim n, ligne, Tbl(), RepNiv(1 To 6)
Sub CreeArboRepertoire()
  Tbl = Range("A2:B" & [A65000].End(xlUp).Row).Value
  n = UBound(Tbl)
  niv = 1
  CréeRep Tbl(1, 1), niv
End Sub
 
Sub CréeRep(parent, niv) ' procédure récursive
  chemin = ""
  RepNiv(niv) = parent
  For i = 1 To niv - 1
   chemin = chemin & RepNiv(i) & "\"
  Next i
  chemin = chemin & parent
  MkDir chemin
  For i = 1 To n
    If Tbl(i, 2) = parent Then CréeRep Tbl(i, 1), niv + 1
  Next i
End Sub

Mes connaissances primaires en macro me permet d'utiliser cette macro que pour la création d'un dossier en je souhaiterai que cette macro me permette de créer plusieurs dossiers de la colonne H28 à 57 (voir tableau ci-joint).

Est-ce possible ? Merci d'avance pour votre aide !