VBA extrait le nom de fichier du chemin

Function GetFilenameFromPath(ByVal strPath As String) As String
    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, _
        	Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function
VasteMonde