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

jmh1 · 30 Mars 2017

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 · 30 Mars 2017

Salut,
De ce que j'ai compris:

VB:

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

Lone-wolf · 30 Mars 2017

Bonsoir jmh

MsgBox Left(Chemin, 17)

Bonsoir Hieu, désolé pour le croisement.

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

jmh1

XLDnaute Occasionnel

Hieu

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

Discussions similaires