Lettre du repertoire du fichier ouvert

[carlos]

Bonjour

Je recherche le code qui me permet de connaitre la lettre du repertoire sur lequel ce fichier est ouvert

Par exemple si ce fichier se trouve à :

C:\\dossier1222\\fichier ouvert

La reponse serait du genre :

MaLettre = 'C'


Merci

 

[Robert]

Bonjour Carlos, bonjour le forum,

Cette macro devrait convenir :

Sub Macro1()
Dim ML As String
ML = Left(ThisWorkbook.Path, 1)
MsgBox ML
End Sub

 

[carlos]

Bonjour Robert

Pour moi c'est deja une tres belle journée qui commence

Une fois de plus j'avance grace à toi

MERCI

 

[carlos]

Bonjour Robert

Pour moi c'est deja une tres belle journée qui commence

Une fois de plus j'avance grace à toi

MERCI

 

[JeanMarie]

Bonjour tout le monde

Pour tous ceux qui recherche la même chose mais sur une feuille de calcul, il y a cette formule
=GAUCHE(CELLULE('filename');CHERCHE(':';CELLULE('filename'))-1)

Encore une petite chose, c'est compatible PC/MAC.

@+Jean-Marie