Discussion :

[sarrom1]

Bonjour,

Je souhaiterais obtenir le chemin du dossier précédent de mon fichier Excel.
Pour être plus clair, passer par exemple du chemin : "C:\mon dossier\mon dossier2" à "C:\mon dossier"

J'ai trouvé une méthode pour arriver à mes fins, mais je voudrai savoir s'il n'y avait pas une commande pour descendre d'un dossier à partir d'un path ?
Voici ma méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    chemin1 = ThisWorkbook.Path
    ChDrive (chemin1)
    ChDir (chemin1)
    ChDir ".."
    chemin2= CurDir

Ainsi, "chemin2" contient le chemin du dossier précédent. Mais comme je le demandais précédement, n'y a-t-il pas une méthode moins alambiquée ?

Merci par avance

[Pierre Fauconnier]

Bonjour

Le problème de chdir est que tu modifies le dossier courant.

Comme les sous-dossiers sont séparés par \, il "suffit" de trouver la place du dernier \ et d'extraire ce qu'il y a avant.

Le dernier \ est en fait le premier lorsque tu lis la chaine à l'envers.

Tu peux donc utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chaine = "C:\mon dossier\mon dossier2"
  chaine = Left(chaine, Len(chaine) - InStr(1, StrReverse(chaine), "\"))

[sarrom1]

Salut,
Oui, je savais que je modifiais le lecteur et le répertoire courant, et c'est bien celà qui me déplaisait dans ma solution "bricolage".
Merci pour ta solution qui est parfaite, je me doutais qu'on pouvait trouver une solution grâce aux fonctions sur les chaînes de caractères, mais pensais qu'il y avait peut être une toute simple du genre ".." pour le chdir.
Bref, un grand MERCI !!