Certains virus informatiques restent inactifs jusqu’à un certain moment. Une date très précise est souvent fixée pour qu’un virus frappe. Vous pouvez également utiliser cette propriété dans un sens positif pour votre travail. Imaginez devoir obtenir votre diplôme à la fin de chaque mois. Cette conclusion est initiée par une macro. Pour ne pas oublier la clôture de fin de mois, vous pouvez demander à Excel de vous rappeler cette date.
Pour accomplir cette tâche, vous devez d’abord déterminer le dernier jour du mois respectif. Pour ce faire, vous utilisez une fonction qui ressemble à ceci:
Function DernierJour(DateEntree As Date) As Date DernierJour = _ DateSerial(Year(DateEntree), _ Month(DateEntree) + 1, 0) End Function
Puisque vous n’avez pas à utiliser la fonction du Listing 12.8 une seule fois, mais que vous voulez l’utiliser plusieurs fois, vous passez la date actuelle comme argument à la fonction en utilisant la fonction Date. Vous transférez la fonction Date immédiatement après avoir ouvert le classeur. Pour ce faire, écrivez l’événement Workbook_Open.
Private Sub Workbook_Open() If DernierJour(Date) = Date Then obtentiondudiplome End Sub
Si la date actuelle correspond à la date déterminée par la fonction LastDay, la macro Fermer est démarrée. Vous entrez cette macro au niveau du module.