Arborescence serveur

R

reve24

XLDnaute Occasionnel

• 3 Août 2009

• #2

Re : Arborescence serveur

reve24 à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• InfosFichiersDossiers.xlsm

  21.7 KB · Affichages: 135

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 3 Août 2009

• #3

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

 

Pièces jointes

• ListeDossiers.zip

  16.7 KB · Affichages: 89

Dernière édition: 3 Août 2009

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 3 Août 2009

• #4

Re : Arborescence serveur

kiki29 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 3 Août 2009

• #5

Re : Arborescence serveur

Re,

1 er niveau de DOSSIER et 2 eme niveau de DOSSIER

Cliquez pour agrandir...

?????

 

Pièces jointes

• IMG186.jpg

  47.1 KB · Affichages: 130

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 3 Août 2009

• #6

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

 

Dernière édition: 3 Août 2009

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 3 Août 2009

• #7

Re : Arborescence serveur

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

Code:

Const NiveauMax As Integer = 2

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

 

Dernière édition: 3 Août 2009

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 3 Août 2009

• #8

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 3 Août 2009

• #9

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

Code:

Niveau(SousDossier.Path) <= NiveauMax

 

Pièces jointes

• ListeDossiers2.xls

  36 KB · Affichages: 97

Dernière édition: 3 Août 2009

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 3 Août 2009

• #10

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.

 

Dernière édition: 3 Août 2009

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 3 Août 2009

• #11

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

 

Pièces jointes

• ARBORES.zip

  27.1 KB · Affichages: 73

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 3 Août 2009

• #12

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Août 2009

• #13

Re : Arborescence serveur

Bonsoir,

Voir PJ

Code:

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

 

Pièces jointes

• ArborescenceRepertoireSousRep2niv.xls

  39 KB · Affichages: 144

Dernière édition: 3 Août 2009

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 4 Août 2009

• #14

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

 

Pièces jointes

• structure dossier.zip

  11.5 KB · Affichages: 86

Vote positif 0 Vote négatif