Bonjour,

Je souhaiterais pouvoir remonter le chemin d'accès du fichier actif.

Pour l'instant j'ai ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub chemin()
Dim fichier As String
 
fichier = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, ".") - 1)
MsgBox fichier
End Sub
Mais ce code ne remonte que une lettre par une lettre. Or j'aimerais qu'il remonte d'un \ par un \.

Comment faire


Merci