Private Sub Test()
Const Fichier As String = "C:\Myrep\DBTest.accdb"
If FichierExiste(Fichier) Then
ext = Fichier_extension(Fichier)
MsgBox "Fichier := " & Replace(Fichier, "." & ext, "") & vbCrLf & "Extension := " & ext
End If
End Sub
Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function
'Retourne l'extension du fichier, à partir du chemin d'accês complet précisé en paramêtre.
Public Function Fichier_extension(Fichier)
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Fichier_extension = FSO.GetExtensionName(Fichier)
Set FSO = Nothing
End Function