Macro ou événement pour se rappeler d’un événement à la fin du mois avec Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x