récupérer arborescence de dossier a un certain niveau

gsx-air

XLDnaute Nouveau
Salut a tous
je ne suis pas très actif sur le forum car en général je trouve toujours ce que je cherche sur le forum que je modifie par la suite
Mais la je butte
je souhaiterais récupérer une liste de sous dossier mais à un niveau bien précis
c'est a dire!
j'ai un dossier qui se nomme "client"
sous ce dossier j'ai différent sous dossier "A" "B" "C" "D"
dans chacun de ces sous dossiers je peux avoir encore des sous sous dossiers "A1" "A2" "B1" "C1"

je souhaiterai pouvoir récupérer une lite des sous dossier "A" "B" "C" "D" sans avoir les "A1" "A2" "B1" "C1"

aujourd'hui j'ai ce code qui me permet de récupérer tous les sous dossiers mais je n'arrive pas a le modifier je ne comprend pas la variable niveau

merci
JC.

Code:
Dim ligne
        'recuperation liste client affectation dossier
Sub arborescenceRepertoire()
  Sheets("DATA").Select
  racine = "C:\fabrication\CLIENTS"
  'ChoixDossier()      ou un répertoire C:\xxx e.g.
  If racine = "" Then Exit Sub
  Range("H:H").ClearContents
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.getfolder(racine)
  ligne = 1
  Lit_dossier dossier_racine, 0
  Columns("H:H").Select
  Selection.Sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  Range("a1").Select
  Sheets("saisie").Select
  Range("a21").Select
End Sub
   'moulinette de recuperation repertoire
Sub Lit_dossier(ByRef dossier, ByVal niveau)
   Cells(ligne, 8) = dossier.Name
   'String(2 * (niveau - 1), " ") &'
   ligne = ligne + 1
   For Each d In dossier.SubFolders
     Lit_dossier d, niveau
   Next
End Sub
 

Discussions similaires


Haut Bas