XL 2010 Copier le nom du dossier contenant le sous-dossier

[zac.dubeau]

Bonjour,

Je cherche à modifier la macro ci-dessous afin de faire apparaitre en colonne 1 le nom du dossier contenant le sous-dossier en face de chaque ligne.
Actuellement en colonne 2 il y a le nom du fichier
En colonne 3 le nom du sous-dossier ou est le fichier

Dim ligne
Sub arborescence()
Application.ScreenUpdating = False
racine = ("C:\....")
If racine = "" Then Exit Sub
Range("A2:E20000").ClearContents
Range("A2").Select
Set fs = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fs.GetFolder(racine)
ligne = 2
Lit_dossier dossier_racine, 1
End Sub
Sub Lit_dossier(ByRef dossier, ByVal niveau)
Dim xSubFolderName As String
For Each d In dossier.SubFolders
Lit_dossier d, niveau
Next
For Each f In dossier.Files
Cells(ligne, 2) = Mid(f.Name, 1, InStrRev(f.Name, ".") - 1)
Cells(ligne, 3) = dossier.Name
ligne = ligne + 1
Next
End Sub

 

[kiki29]

Salut, va voir : Gestion des fichiers et répertoires

 

[Dranreb]

Voulez-vous dire le chemin du dossier ?
Remarque: ce code, j'ai été obligé de le planter …
Ça aboutit à quoi "C:\...." comme racine ?
À mon avis vous devriez quand même prévoir une colonne pour l'extension du fichier, sinon on ne sait pas du tout ce que c'est.

 

[TooFatBoy]

Bonjour,

Ça aboutit à quoi "C:\...." comme racine ?

À mon avis, il faut remplacer ("C:\....") par le chemin et le nom du dossier racine, placés entre guillemets (ex. : "C:\Windows\MonDossier\").
N'est-il pas ?


ps : je n'y connais rien, mais la méthode de récursivité me paraît bizarre. Non ?

 

[Dranreb]

Oui mais le problème c'est qu'apparemment ça aboutit quelque part, vu que les point remontent les dossiers.
Dans ce cas il faudrait le saisir et non le figer dans du code.

 

[TooFatBoy]

Oui mais le problème c'est qu'apparemment ça aboutit quelque part, vu que les point remontent les dossiers.
Dans ce cas il faudrait le saisir et non le figer dans du code.

Ben non, on s'en fout puisqu'on le remplace.
Ou alors on se comprend point...

 

[Dranreb]

C'est vrai. Le demandeur éclaircira peut être la chose …