Sauvegarde journalière

On peut souhaiter faire une sauvegarde ou une exportation journalièree de certaines données.


Pour cela, on créera :

• La requête ou l'action souhaitée
• Une table "tblExport" avec un champ date "DateExport"

La fonction suivante sera placée dans un module général (onglet Module) et sauvée sous "mod_ExportJournalier" par exemple.

Public Function fn_ExportJournalier()
    Dim JourActuel As Long, JourExport As Long
    Dim varDerDate As Variant

    JourActuel = Format(Date, "yyyymmdd")
    varDerDate = DMax("DateExport", "tblExport")

    If IsNull(varDerDate) Then
        JourExport = 0
    Else
        JourExport = Format(varDerDate, "yyyymmdd")
    End If

    If JourExport <> JourActuel Then
        '// premier démarrage de la journée et j'exporte
        '// par exemple par
        '
        'DoCmd.TransferSpreadsheet ....
        '
        '// sauver la date de l'export
        CurrentDb.Execute "Insert Into tblExport Values (" & Format(Date, "\#mm/dd/yyyy\#") & ");"
        MsgBox "L'exportation a été réalisée", vbInformation
    End If
End Function

Par une macro "AutoExec" qui exécutera l'action "ExécuterCode" on appellera la fonction "fn_ExportJournalier()"

L'action sera ainsi réalisée une seule fois par jour et au premier démarrage de la base.