Function GetPathNameFromFile(ByVal sPath As String) As String GetPathNameFromFile = Left$(sPath, InStrRev(sPath, "\")) End Function ' MsgBox GetPathNameFromFile("C:\MesData\Classeur1.xls")