Nom de fichier en vba

' Comment récupérer le répertoire d'un fichier à partir de son chemin complet ?
Public Function ExtractFilePath(ByVal sFullPath As String) As String

If Right(sFullPath, 1) = "\" Then
    ExtractFilePath = sFullPath
Else
    ExtractFilePath = Left(sFullPath, InStrRev(sFullPath, "\"))
End If

End Function

'Comment récupérer le nom d'un fichier à partir d'un chemin complet ? 
Public Function ExtractFileName(ByVal sFullPath As String) As String
    If InStr(sFullPath, "\") = 0 Or Right(sFullPath, 1) = "\" Then
        ExtractFileName = ""
        Exit Function
    End If
    ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)
End Function

'Comment récupérer l'extension d'un fichier à partir d'un chemin complet ? 
Public Function ExtractFileExt(ByVal sFullPath As String) As String
    Dim sName As String
    sName = ExtractFileName(sFullPath)
    If InStr(sName, ".") = 0 Then
        ExtractFileExt = ""
    Else
        ExtractFileExt = Mid(sName, InStrRev(sName, ".") + 1)
    End If
End Function