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
Détails
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.
Responsables bénévoles de la rubrique Excel : Pierre Fauconnier - Arkham46 -

Partenaire : Hébergement Web