Répertoire de la base de données

Le code qui suit permet de connaître le répertoire de la base de données en cours.

Function CurrentDbDir() As String

'Retourne le nom du répertoire de la base de donnée en cours.
Dim strDbPath As String
Dim strDbFile As String

strDbPath = CurrentDb.Name
strDbFile = Dir(strDbPath)
CurrentDbDir = Left(strDbPath, Len(strDbPath) - (Len(strDbFile) + 1))

End Function

La fonction renverra le chemin complet du répertoire de la base de données en cours.

Auteur : Jessy SEMPERE