Si votre disque dur contient de nombreux dossiers, il peut être pratique d’en dresser une « carte » que vous pourrez ensuite imprimer.
La macrocommande ci-dessous crée un organigramme (tel que ceux du menu Insertion/Diagramme) qu’elle remplit avec les noms des dossiers et sous-dossiers.
Pour saisir cette macro, commencez par créer un nouveau document sous Word et enregistrez-le dans le dossier dont vous souhaitez obtenir la cartographie détaillée, Mes documents par exemple.
Passez par le menu Outils/Macro, et ouvrez le Visual Basic Editor.
Ajoutez un module grâce au menu Insertion, puis saisissez le code ci-dessous.
Listing
Option Explicit
Dim fs
Sub construitDiagram()
Dim nodRoot, shDiagram, chemin
Set shDiagram = ActiveDocument.Shapes.AddDiagram
Type:=msoDiagramOrgChart, Top:=10, Left:=15, Width:=400, Height:=475)
Set nodRoot = shDiagram.DiagramNode.Children.AddNode
Set fs = CreateObject("Scripting.FileSystemObject")
dessinRep nodRoot, chemin
nodRoot.TextShape.TextFrame.TextRange.Text = chemin
End Sub
Sub dessinRep(ByVal noeud, chemin)
Dim f, f1
Set f = fs.GetFolder(chemin)
noeud.Layout = msoOrgChartLayoutRightHanging
noeud.TextShape.TextFrame.TextRange.Text = f.Name
For Each f1 in f.SubFolders
dessinRep noeud.Children.AddNote, f1.Path
Next f1
End Sub
Déroulez le menu Fichier/Fermer, retournez à Word, puis lancez la macro à l’aide du menu Outils/Macro/Macros.
Sélectionnez Construit Diagram, puis cliquez sur [exécuter].
En fonction du nombre de sous-dossiers parcourus, l’opération peut durer plusieurs minutes. Sauf à vouloir un diagramme exhaustif, n’enregistrez pas votre document à la racine du disque dur. Notez que cette macro construit le diagramme en parcourant chaque dossier de manière récursive : la procédure dessinRep ajoute un noeud au diagramme puis elle s’appelle elle-même pour chaque sous-dossier.