Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
1008403 visiteurs
8 visiteurs en ligne
La fonction suivante sera placée dans un module général (onglet Module) et sauvée sous "mod_ExportMensuel" par exemple.
Public Function fn_ExportDebutMois() Dim MoisActuel As Integer, MoisExport As Integer Dim varDerDate As Variant MoisActuel = Month(Date) varDerDate = DMax("DateExport", "tblExport") If IsNull(varDerDate) Then MoisExport = 0 Else MoisExport = Month(varDerDate) End If If MoisExport <> MoisActuel Then 'premier démarrage du mois 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_ExportDebutMois()"
L'action sera ainsi réalisée une seule fois par mois et au premier démarrage de la base.