Retrouver les répertoires parents

Présentation
La procédure récupère le répertoire parent du classeur contenant cette macro.
Cet exemple remonte 2 répertoires parents, par rapport au classeur contenant la macro.
Téléchargement
Compatibilité
Windows
0  1 
Téléchargé 10 fois Voir les 2 commentaires
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 29/12/2011 à 19:27
Bonjour,

Il faudrait vérifier qu'on est sur le bon disque, sinon, ça twiste. Pour l'éviter, on peut utiliser (pour remonter au grand-père) :

Code : Sélectionner tout
1
2
3
4
    With ThisWorkbook
        Chemin = Left(.Path, InStrRev(.Path, "\") - 1)
        Chemin = Left(Chemin, InStrRev(Chemin, "\") - 1)
    MsgBox Chemin
Avatar de Daniel.C Daniel.C - Expert éminent sénior https://www.developpez.com
le 29/12/2011 à 21:09
On peut aussi remonter de deux niveaux comme ceci :

Code : Sélectionner tout
1
2
3
    ChDir (ThisWorkbook.Path)
    ChDir "..\.."
    MsgBox CurDir

 
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