Sub ExtraitCheminMoins1()
Const Chemin = "C:\temp\2013\Juin\a\b"
'MsgBox Left$(Chemin, InStrRev(Chemin, "\") - 1)
chemin2 = Left$(Chemin, InStrRev(Chemin, "\") - 1)
chemin3 = Left$(chemin2, InStrRev(chemin2, "\") - 1)
MsgBox Mid(chemin2, Len(chemin3) + 2, Len(chemin2) - Len(chemin3))
End Sub