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

Présentation
Lister, dans la feuille de calcul, l'arborescence des dossiers et sous dossiers d'un répertoire
Téléchargement
Compatibilité
Windows
3  1 
Téléchargé 121 fois Voir le commentaire
Détails
Avatar de michel Tanguy
Expert éminent sénior
Voir tous les téléchargements de l'auteur
Licence : Non renseignée
Date de mise en ligne : 29 décembre 2011




Avatar de Daniel.C Daniel.C - Expert éminent sénior https://www.developpez.com
le 31/12/2011 à 10:31
Bonjoour,

On pourrait remplacer la fonction "NbSeparateur" par :

Code : Sélectionner tout
1
2
3
Function NbSeparateur(Chemin As String) As Byte
    NbSeparateur = Len(Chemin) - Len(Application.Substitute(Chemin, "\", ""))
End Function

 
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.