Génération d'1 sommaire de répertoire via word version 1

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 962 fois - Téléchargée 36 fois

Contenu du snippet

je voudrais améliorer ce code, avec un tri croissant des répertoire. merci à FBRT pour son aide indirect avec la Source ID 3614

Source / Exemple :


Sub Folder()
 
        CurrentFolder = ActiveDocument.Path
        AfficherListeDossiers (CurrentFolder)
 
End Sub

Sub AfficherListeDossiers(CurrentFolder)
    Dim fs, Folder, strFolder, specdossier, strSubfolder, strHyper
    Dim files As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set Folder = fs.GetFolder(CurrentFolder)
    strFolder = "Répertoire  :" & Folder.Name
    
    Selection.Style = ActiveDocument.Styles("Titre 1")
    Selection.TypeText Text:=strFolder
    Selection.TypeParagraph
    'recherche des fichiers présents dans le répertoire
    For Each files In Folder.files
    strFiles = files.Name
    strHyper = files.Path
    'Définition du style
    Selection.Style = ActiveDocument.Styles("Normal")
    'Définition Lien Hypertexte
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        strHyper, SubAddress:="", ScreenTip:="", TextToDisplay:=strFiles
    Selection.TypeParagraph
    Next files
    
    For Each strSubfolder In Folder.subfolders
    AfficherListeDossiers strSubfolder
    Next strSubfolder
    
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
mercredi 8 novembre 2006
Statut
Membre
Dernière intervention
27 octobre 2007

Je trouve ce code très utile.
Il manque néanmoins un petit détail.
Pour rendre visuel l'affichage sous word il serait à minima pratique de mettre 1 ou plusieurs tabulations suivant le niveau de sous répertoire rencontré. Le top serait de pouvoir mettre en phase numérotation auto avec les sous numérotations.
Alors là, ce serait le pied !
Messages postés
4936
Date d'inscription
lundi 17 février 2003
Statut
Modérateur
Dernière intervention
14 février 2014
32
cyberdevil a raison...
mais je rajouter qu'il ne faut pas utiliser l'objet FileSystemObject pour ca mais plutot les API.

Séb
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006

ah ben pour lister les fichiers fo pas faire une fonction pour chaque "range" de sous répértoire mais il faut faire une fonction récurrsive..
c'est à dire une fonction qui se rappelle elle meme lorsqu'elle trouve un sous dossier
gienre
listdossier(dossier)
'listeage...
'test si sous dossier
si oui ben on rappelle la fonction listdossier avec comme arguement le sous rep sinon on continue
etc..
mais fo faire gaffe de ne pas se loupper car au début en général ça part en boucle
lol
sur ce bonne progz
A+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.