Lister, dans la feuille de calcul, l'arborescence des dossiers et sous dossiers d'un répertoire

[SilkyRoad]

Bonjour,

Je vous propose un nouvel élément à utiliser : Lister, dans la feuille de calcul, l'arborescence des dossiers et sous dossiers d'un répertoire

Lister, dans la feuille de calcul, l'arborescence des dossiers et sous dossiers d'un répertoire

Qu'en pensez-vous ?

[Daniel.C]

Bonjoour,

On pourrait remplacer la fonction "NbSeparateur" par :

Code :

1
2
3
Function NbSeparateur(Chemin As String) As Byte
    NbSeparateur = Len(Chemin) - Len(Application.Substitute(Chemin, "\", ""))
End Function