XL 2016 Récupérer la lettre du lecteur du fichier en vba

[Pexcel]

Bonjour, je voudrais pouvoir récupérer la lettre du lecteur où est ouvert le fichier qui change de nom régulièrement ? en code VBA

C: ou C si celui ci est ouvert dans n'importe quel dossier se situant dans C

D: ou D si celui ci est ouvert dans n'importe quel dossier se situant dans D etc

Est ce possible ?

Merci.

 

[JM27]

bonjour
A adapter
Sub Lecteur()
MsgBox ThisWorkbook.Path
MsgBox Left(ThisWorkbook.Path, 1)
End Sub

 

[Pexcel]

Bonjour, trop génial !!!
Merci bon weekend