Function monchemin(NomForm)
Dim cheminBase As String
cheminBase = CurrentProject.Path & "\"
monchemin = cheminBase
End Function