Génération d'1 sommaire de répertoire via word version 1
Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 962 fois - Téléchargée 36 fois
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
- Génération d'1 sommaire de répertoire via word version 1
- Classer des images par gende dans des répertoires via une touche clavier - Codes sources - Visual Basic / VB.NET (Graphique)
- Comment créer un répertoire via ftp? ✓ - Forum - VB.NET
- ACCESS 2007 : Conversion fichier via Word plante avec Office 2007 ✓ - Forum - Visual Basic 6
- Génération d'XML avec ASP.net via une BDD ✓ - Forum - ASP.NET
- Générer un document word depuis un modèle php - Conseils pratiques - PHP
Commentaires
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 !
- Messages postés
-
4936
- Date d'inscription
- lundi 17 février 2003
- Statut
- Modérateur
- Dernière intervention
- 14 février 2014
32mais je rajouter qu'il ne faut pas utiliser l'objet FileSystemObject pour ca mais plutot les API.
Séb
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.