Rubrique BUREAUTIQUE - MS OFFICE

WORD 2002-Comment localiser des fichiers sur le disque dur

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.



Par Fanch, publié le samedi 22 mars 2003
Les Tags de l'article "WORD 2002-Comment localiser des fichiers sur le disque dur" :