Module modGeneral
    ' Paramètres de l'application
    Public ctDSN_AEM As String

    Public gDate_debut As Date = Now         ' Date début de traitement
    Public gDate_fin As Date = Now           ' Date fin de traitement

    '-------------------------------------------------------------------------------------
    Public Function nv(ByVal c As Object) As Object
        ' remplace une chaine NULL en ""
        On Error Resume Next
        nv = vbNullString & c

    End Function

End Module