Discussion :

[ExcelLiod]

Bonjour à tous !

J'ai récupéré une bonne macro faite par un collègue qui permet la création de dossier et sous dossiers. Cependant je souhaiterais la faire évoluer et comme j'ai du mal avec les macros je n'y arrive vraiment pas.

Voici la macro le fichier est ci-joint :

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

Je vous explique j'aimerais que cette macro puisse créer plusieurs dossiers d'une plage prédéfinie de la plage H27 à H40 dans le fichier . Je souhaiterais également que ces dossiers soit créer dans le dossier déjà existant prédéfinie dans les colonnes A2 et B3 "Z:\SCAN\Protégés".

Est-ce possible?

Merci d'avance pour votre aide