{"id":1115,"date":"2003-03-22T22:59:16","date_gmt":"2003-03-22T21:59:16","guid":{"rendered":"https:\/\/destinationcyber.com\/?p=1115"},"modified":"2003-03-22T22:59:16","modified_gmt":"2003-03-22T21:59:16","slug":"word-2002-comment-localiser-des-fichiers-sur-le-disque-dur","status":"publish","type":"post","link":"https:\/\/destinationcyber.com\/?p=1115","title":{"rendered":"WORD 2002-Comment localiser des fichiers sur le disque dur"},"content":{"rendered":"<p>Si votre disque dur contient de nombreux dossiers, il peut \u00eatre pratique d&rsquo;en dresser une \u00ab <em>carte<\/em> \u00bb que vous pourrez ensuite imprimer.<\/p>\n<p>La macrocommande ci-dessous cr\u00e9e un organigramme (tel que ceux du menu <strong>Insertion\/Diagramme<\/strong>) qu&rsquo;elle remplit avec les noms des dossiers et sous-dossiers.<\/p>\n<p>Pour saisir cette macro, commencez par cr\u00e9er un nouveau document sous <strong>Word<\/strong> et enregistrez-le dans le dossier dont vous souhaitez obtenir la cartographie d\u00e9taill\u00e9e, <strong>Mes documents<\/strong> par exemple. <\/p>\n<p>Passez par le menu <strong>Outils\/Macro<\/strong>, et ouvrez le <strong>Visual Basic Editor<\/strong>. <\/p>\n<p>Ajoutez un module gr\u00e2ce au menu <strong>Insertion<\/strong>, puis saisissez le code ci-dessous. <\/p>\n<p><code><br \/>\nListing<br \/>\nOption Explicit<br \/>\nDim fs<\/p>\n<p>Sub construitDiagram()<br \/>\nDim nodRoot, shDiagram, chemin<br \/>\nSet shDiagram = ActiveDocument.Shapes.AddDiagram<br \/>\n   Type:=msoDiagramOrgChart, Top:=10, Left:=15, Width:=400, Height:=475)<br \/>\nSet nodRoot = shDiagram.DiagramNode.Children.AddNode<br \/>\nSet fs = CreateObject(\"Scripting.FileSystemObject\")<br \/>\ndessinRep nodRoot, chemin<br \/>\nnodRoot.TextShape.TextFrame.TextRange.Text = chemin<br \/>\nEnd Sub<\/p>\n<p>Sub dessinRep(ByVal noeud, chemin)<br \/>\n    Dim f, f1<br \/>\n    Set f = fs.GetFolder(chemin)<br \/>\n    noeud.Layout = msoOrgChartLayoutRightHanging<br \/>\n    noeud.TextShape.TextFrame.TextRange.Text = f.Name<br \/>\n    For Each f1 in f.SubFolders<br \/>\n    dessinRep noeud.Children.AddNote, f1.Path<br \/>\n    Next f1<br \/>\nEnd Sub<br \/>\n<\/code><\/p>\n<p>D\u00e9roulez le menu <strong>Fichier\/Fermer<\/strong>, retournez \u00e0 Word, puis lancez la macro \u00e0 l&rsquo;aide du menu <strong>Outils\/Macro\/Macros<\/strong>. <\/p>\n<p>S\u00e9lectionnez <strong>Construit Diagram<\/strong>, puis cliquez sur <strong>[ex\u00e9cuter]<\/strong>. <\/p>\n<p>En fonction du nombre de sous-dossiers parcourus, l&rsquo;op\u00e9ration peut durer plusieurs minutes. Sauf \u00e0 vouloir un diagramme exhaustif, n&rsquo;enregistrez pas votre document \u00e0 la racine du disque dur. Notez que cette macro construit le diagramme en parcourant chaque dossier de mani\u00e8re r\u00e9cursive : la proc\u00e9dure <strong>dessinRep<\/strong> ajoute un noeud au diagramme puis elle s&rsquo;appelle elle-m\u00eame pour chaque sous-dossier.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Si votre disque dur contient de nombreux dossiers, il peut \u00eatre pratique d&rsquo;en dresser une \u00ab carte \u00bb que vous pourrez ensuite imprimer. La macrocommande ci-dessous cr\u00e9e un organigramme (tel que ceux du menu Insertion\/Diagramme) qu&rsquo;elle remplit avec les noms des dossiers et sous-dossiers. Pour saisir cette macro, commencez par cr\u00e9er un nouveau document sous [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_citadela_custom_class":"","footnotes":""},"categories":[27],"tags":[],"class_list":["post-1115","post","type-post","status-publish","format-standard","hentry","category-bureautique-ms-office"],"_links":{"self":[{"href":"https:\/\/destinationcyber.com\/index.php?rest_route=\/wp\/v2\/posts\/1115","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/destinationcyber.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/destinationcyber.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/destinationcyber.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/destinationcyber.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1115"}],"version-history":[{"count":0,"href":"https:\/\/destinationcyber.com\/index.php?rest_route=\/wp\/v2\/posts\/1115\/revisions"}],"wp:attachment":[{"href":"https:\/\/destinationcyber.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1115"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/destinationcyber.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1115"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/destinationcyber.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1115"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}