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

Commenter

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

S'inscrire maintenant

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.