IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 141 fois
Vote des utilisateurs
3 
1 
Détails
Licence : Non renseignée
Mise en ligne le 29 décembre 2011
Plate-forme : Windows
Langue : Français
Référencé dans
Navigation

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
Avatar de 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.