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.
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