Microsoft 365 Exécution Macro selon conditions Date

eric72 à dit:

Bonjour à tous,
J'aimerais exécuter une macro le 1er jour d'ouverture du fichier de l'année, exemple si je l'ouvre le 01/01 alors la macro se déclenche, mais si je ne l'ouvre que le 02/01 elle se lance aussi, mais qu'une seule fois!!
j'ai beaucoup cherché et je n'ai pas trouvé de solution, quelqu'un a t il une idée géniale à ce sujet?
Merci beaucoup pour votre dévouement.
Eric

Cliquez pour agrandir...

eric72 à dit:

Bonjour,

Merci beaucoup pour ce retour, mais je ne vois pas ou faire référence à la date que je souhaite, pour exemple : du 01/01 à???(le 1er jour de l'année ou je l'ouvre)
je ne suis pas très doué!!! je vous l'accorde...
Eric

Cliquez pour agrandir...

eric72 à dit:

Merci pour le mal que vous vous donnez pour m'expliquer, mais je ne comprends toujours pas comment lancer une macro lorsque j'ouvrirais le fichier le 01, 02 ou 03 janvier 2022 afin de sauvegarder mes données
Je suis vraiment désolé, cela vous embête t il de mettre dans votre exemple la référence de date pour que cela se déclenche chaque début d'année.
Désolé d'abuser, merci 1000 fois pour votre aide.
Eric

Cliquez pour agrandir...

eric72 à dit:

En effet j'ai dû mal m'exprimer,
Chaque début de nouvelle année, lors de la 1ère ouverture, se lance une macro qui me permet de faire une sauvegarde de mon fichier et de remettre les données de celui ci à 0

Cliquez pour agrandir...

eric72 à dit:

Voilà le fichier, la macro c'est "SauvegardeAnnuelle", c'est celle -ci que j'aimerais lancer le 1er jour de l'année civile ou le fichier sera ouvert.
Merci
Eric

Cliquez pour agrandir...

Private Sub Workbook_Open()
    Dim fichier As Workbook
    If Year(Date) > Year(ThisWorkbook.BuiltinDocumentProperties("Last Save Time")) Then Call FichierSauvegarde
    Set fichier = Application.Workbooks.Open("C:\Users\Utilisateur\OneDrive\Bureau\FITECO\METAIS Cedric\Devis METAIS Cédric.xlsm")
    ThisWorkbook.Activate
    Call creerSommaire
End Sub