Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 091 fois - Téléchargée 38 fois
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
8 mars 2007 à 18:38
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 !
22 mai 2003 à 06:55
mais je rajouter qu'il ne faut pas utiliser l'objet FileSystemObject pour ca mais plutot les API.
Séb
20 mai 2003 à 21:27
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.