Ton problème c'est juste de séparer le nom et l'extension d'un fichier donné ?

Dans ce cas, tu as 2 solutions possibles :
- La facile qui nécessite une DLL en plus (Microsoft Scripting Runtime = scrrun.dll)
Dim ls_File As String
Dim fso As New FileSystemObject
ls_File = "c:\test.txt"
'Extension
Debug.Print fso.GetExtensionName(ls_File)
'Nom du doc
Debug.Print fso.GetBaseName(ls_File)
Set fso = Nothing

- La moins jolie mais sans DLL
Dim ls_File As String
Dim li_pos As Integer
Dim li_PosBackSlash As Integer
ls_File = "c:\test.txt"
'Position du point
li_pos = InStrRev(ls_File, ".")
'Position du \
li_PosBackSlash = InStrRev(ls_File, "\")
'Extension
Debug.Print Mid(ls_File, li_pos + 1, Len(ls_File) - li_pos)
'Nom du doc
Debug.Print Mid(ls_File, li_PosBackSlash + 1, li_pos - 1 - li_PosBackSlash)