---Soumis par Dev Ashish---

Le chemin et le nom de la base de données actuelle.

La propriété Name de l'objet base de données contient cette information. Par exemple:

?CurrentDB.Name
dans la fenêtre d'exécution immédiate retourne le  nom et le chemin de la base de donnée actuellement ouverte.

Pour en retrouver le  répertoire, utiliser cette fonction.

'******************** Code Begin ****************
'Code courtesy of
'Terry Kreft & Ken Getz
'
Function CurrentDBDir() As String
Dim strDBPath As String
Dim strDBFile As String
    strDBPath = CurrentDb.Name
    strDBFile = Dir(strDBPath)
    CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))
End Function
'******************** Code End ****************

Pour n'obtenir que le nom de la base de données, utiliser cette fonction

'*************** Code Start ******************
Function fDBName(strFullName As String) As String
Dim intLen As Long
Dim i As Integer
    On Error GoTo fDBName_Err

    intLen = Len(strFullName)
    For i = intLen To 1 Step -1
        If Mid$(strFullName, i, 1) = "\" Then
            fDBName = right$(strFullName, intLen - i)
            Exit For
        End If
    Next i

fDBName_Exit:
    Exit Function
fDBName_Err:
    fDBName = vbNullString
    Resume fDBName_Exit
End Function
'*************** Code end  ******************

ou simplmeent: Dir(strFilePath)