Discussion :

[YAKYETI]

Bonjour,
Je maîtrise nombre de langages et techniques depuis des dizaines d'années, mais pas Excel et encore moins VBA.
Il me faut lister un gros répertoire contenant des sous-répertoires pour envoyer le résultat à un copain. Qui se sert d'Excel, lui.
J'ai trouvé une macro qui pourrait aller, mais je voudrais avoir les répertoires en gras et en bleu, les sous-répertoires restant "normaux".
J'ai essayé diverses choses, rien ne fonctionne.
Qui peut m'aider ?
Avec mes remerciements.
Cordialement.
La macro :

Dim ligne
Sub arborescenceRepertoire()
racine = "M:\Images\"
If racine = "" Then Exit Sub
Range("A:E").ClearContents
Set fs = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fs.getfolder(racine)
ligne = 3
Lit_dossier dossier_racine, 1
End Sub

Sub Lit_dossier(ByRef dossier, ByVal niveau)
Cells(ligne, 1) = String(3 * (niveau - 1), " ") & dossier.Name
ligne = ligne + 1
For Each d In dossier.SubFolders
Lit_dossier d, niveau + 1
Next
End Sub

Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function

[Marc-L]

Bonjour !

ou via l'icône # comme pourtant expliqué dans les règles du site !

Et ici c'est le forum des formules de feuille de calculs ‼

Voir donc dans le bon forum et aussi les démonstrations présentes dans le sous-forum Contribuez …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[YAKYETI]

Bonjour,
Mes excuses, je n'avais pas vu le découpage.
J'y vais donc. Il fait mettre résolu, l'effacer ?
Cordialement.

[Menhir]

Comme le conseillent les règles du forum ( http://club.developpez.com/regles/#LIV-I ), avant de poser une question, vérifier si la réponse ne se trouve pas déjà dans :
Les Sources : http://excel.developpez.com/sources/...scenceDossiers
et la FAQ : http://excel.developpez.com/faq/?pag...riptingRuntime