Récupérer le répertoire de la base

Function monchemin(NomForm)

Dim cheminBase As String

cheminBase = CurrentProject.Path & "\"

monchemin = cheminBase

End Function