XL 2010 Récupérer une partie du nom de mon répertoire

[jmh1]

Bonsoir à tous,

J'ai une application avec un répertoire principal et plein de sous-répertoire.

Dans mes sous-répertoire, j'aimerai récupérer le nom de mon répertoire principal, par ex :

pour H:\MonApplication\MonFichier1, j'ai essayé Chemin =Dir(Thisworkbook.path, vbDirectory), j'obtiens 'MonFichier1" alors que je voudrais "H:\MonApplication".

J'ai essayé également : Chemin =Thisworkbook.path mais dans ce cas j'ai le chemin complet de mon fichier.

Je ne peux pas écrire en dur le chemin de l'application car les utilisateurs l'installe où ils veulent.

Merci de votre aide

 

[Hieu]

Salut,
De ce que j'ai compris:

Sub mkj()
chemin = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") )
End Sub

 

[Lone-wolf]

Bonsoir jmh

MsgBox Left(Chemin, 17)

Bonsoir Hieu, désolé pour le croisement.