Retrouver les répertoires parents

[SilkyRoad]

Bonjour,

Je vous propose un nouvel élément à utiliser : Retrouver les répertoires parents

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.

Qu'en pensez-vous ?

[Daniel.C]

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 :

1
2
3
4
    With ThisWorkbook
        Chemin = Left(.Path, InStrRev(.Path, "\") - 1)
        Chemin = Left(Chemin, InStrRev(Chemin, "\") - 1)
    MsgBox Chemin

[Daniel.C]

On peut aussi remonter de deux niveaux comme ceci :

Code :

1
2
3
    ChDir (ThisWorkbook.Path)
    ChDir "..\.."
    MsgBox CurDir