Arborescence serveur

[reve24]

Bonjour

Existe t il une macro pour rechercher et lister les dossiers .
Je suis allé sur le site de
Formation Excel VBA JB

et je n ai pas trouvé
Il a effectivement des macro d'arborescence complete

Il me faudrait une arborecence

1 er niveau de DOSSIER

et 2 eme niveau de DOSSIER

Merci

 

[reve24]

Re : Arborescence serveur

Bonjour

Existe t il une macro pour rechercher et lister les dossiers .
Je suis allé sur le site de
Formation Excel VBA JB

et je n ai pas trouvé
Il a effectivement des macro d'arborescence complete

Il me faudrait une arborecence

1 er niveau de DOSSIER

et 2 eme niveau de DOSSIER

Merci

J ai trouvé des fichiers dans le site mais ceux ci extraits les fichiers , listent des arborescences completes .
Moi je souhaite extraire que les dossiers dans un premiers temps .

Ya t il un moyen?

Ci joint un fichier que j ai trouver sur le site en arborecence complete

 

[kiki29]

Re : Arborescence serveur

Salut, à adapter à ton contexte
Une remarque : il existe un forum Excel 2007

Un lien qui pourrait t'intéresser http://www.cpearson.com/excel/FolderTree.aspx

 

[reve24]

Re : Arborescence serveur

Salut, à adapter à ton contexte
Une remarque : il existe un forum Excel 2007 Forum spécial EXCEL 2007 - Excel Downloads Forums

Un lien qui pourrait t'intéresser Directory Tree Listings

Merci mais la macro ne fonctionne pas .

Je l ai lancé sur un disque ou il y avait 35 dossisers ( sans compter sous dossiers ) ni ( sans compter sous fichiers )

il en a detecté 4 . Pas bravo 😡😡😡😡

 

[kiki29]

Re : Arborescence serveur

Re,

1 er niveau de DOSSIER et 2 eme niveau de DOSSIER

?????

 

[Brigitte]

Re : Arborescence serveur

Bonsoir,

Moi ca m'intéresse bcp ces listages de répertoires, ou dossiers.

Est ce normal que ca ne marche pas en excel 2003 ?

Je l'ai enregistré en xls, j'ai cliqué sur Liste dossiers, choisi un répertoire contenant des dossiers, et cliqué sur "sélection dossiers"... rien ne se passe.

Faut il faire autre chose, ou bien ca ne marche que sous 2007 ?

Edit : j'ai réussi aléatoirement à le faire fonctionner, mais une seule fois....

Merci d'avance Kiki...

 

[kiki29]

Re : Arborescence serveur

Salut Gente Dame , le même en version xls et non xlsm
Il faut modifier en conséquence

Const NiveauMax As Integer = 2

L'arborescence se limitant au 2eme niveau ( ce que demandait l'autre )

 

[Brigitte]

Re : Arborescence serveur

Merci Kiki,

Tu es vraiment adorable...

Mais je n'y arrive plus... Pourrais tu me donner la marche à suivre une fois le fichier enregistré (ca je sais que pour que la macro marche, faut l'enregistrer) ?

- Je clique sur "liste dossiers"
- Je choisis un répertoire contenant des sous répertoires ?
- Je fais "sélectionner dossier" ?

et après ? ou quoi autrement ?

Je suis une vraie "quiche"....

 

[kiki29]

Re : Arborescence serveur

Re, rien de plus normalement qqch est affiché dans la statusbar en bas à gauche
Je te rappelle que seuls les dossiers 1er et 2eme niveau seront affichés et cela peut donc etre normal de ne rien avoir à l'écran , sinon je te joins une version moins perturbante

PS:une modif à faire dans la procédure LectureDossiers dans le 1er fichier

Niveau(SousDossier.Path) <= NiveauMax

 

[Brigitte]

Re : Arborescence serveur

Super, compris...

D'où le côté qui me semblait "aléatoire" qui dépendait du répertoire choisi.

J'ai eu un petit bug, mais ca a marché ensuite... SI je retrouve le bug, je te donnerai la ligne de code qui s'est mise en jaune ; la voici :

.Cells(iRow, 2).Value = SousDossier.Size

Mais ca donne tout de même un résultat.

Ca donne donc les listes du 1er et 2ème niveau, mais à condition qu'ils existent, c'est bien ca ?

Merci à toi.

 

[YANN-56]

Re : Arborescence serveur

Bonsoir à vous et ceux qui passeront par là

Ci-joint un extrait d'une de mes bidouille où je dresse
la liste des dossiers présents d'un répertoire.

(Le nombre de fichiers est celui du dossier "Parent"
mais ne totalise pas ceux des sous dossiers; qui le
sont après dans la liste)

Bonne soirée

YANN-56

 

[kiki29]

Re : Arborescence serveur

Oui à condition de modifer comme dit plus haut Niveau(SousDossier.Path) <= NiveauMax
cela à partir de la racine du DD. Je vais chercher pour que cela se fasse à partir du dossier racine sélectionné et non plus à partir de la racine du DD

 

[BOISGONTIER]

Re : Arborescence serveur

Bonsoir,

Voir PJ

Const MaxNiv = 2
Sub arborescenceRepertoire()
  racine = ChoixDossier()     ' ou un répertoire C:\xxx e.g.
  If racine = "" Then Exit Sub
  Range("A:A").Clear
  Range("A3").Select
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.getfolder(racine)
  Lit_dossier dossier_racine, 1
  Range("A1").Select
End Sub

Sub Lit_dossier(ByRef dossier, ByVal niveau)
   ActiveCell.Value = String(3 * niveau - 1, " ") & dossier.Name  '& "[" & dossier.Path & "]"
   ActiveCell.Offset(1, 0).Select
   For Each d In dossier.SubFolders
     If niveau <= MaxNiv Then Lit_dossier d, niveau + 1
   Next
End Sub

Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function

JB

 

[skoobi]

Re : Arborescence serveur

Bonjour tout le monde,

Sur le même principe que celui de JB, voici ma contribution.
Possibilité de choisir dans une boîte de dialogue le niveau de sous-dossier devant être affiché.
Il faut que dans VBE, sous Outils/Références "Microsoft Scripting Runtime" soit coché.