Macro évènementielle à l'ouverture du classeur à une date

Bonjour,

Est-ce que quelqu'un sait comment créer une macro qui permettrait qu'à l'ouverture du classeur au 1er octobre de chaque année, s'effectue une remise à zéro sur une cellule précise ? C'est pour un classeur facture, afin que le numéro de facture reparte à zéro chaque année.

Merci de votre aide.

Private Sub Workbook_Open()
If Day(Now) = 1 And Month(Now) = 10 Then
    'remise à zero de la cellule
    'par exemple
    Sheets("Feuil1").Range("A1").Value = ""
End If
End Sub

à chaque ouverture, le classeur teste la date du jour, et regarde si on est le 1er octobre. (mois = 10 et jour = 1)

Attention cependant, si le 1er octobre le classeur n'est pas ouvert, il ne sera pas remis à zéro.

La solution que je te propose répond à ta question mais n'est pas complète.Il pourrait être judicieux de faire la chose suivante:

Dans une cellule, indiquer si le fichier a été mis à zéro.

S'il n'a pas été mis à zéro et qu'on a dépassé le 1er octobre, demander s'il faut le remettre à zero.

Merci beaucoup !

Ci-joint ce que tu recherches.

8meg.xlsm (116.69 Ko)

La solution fonctionne avec:

  • du code VBA
  • une plage nommée contenant la date de la dernière mise à jour

Merci

Rechercher des sujets similaires à "macro evenementielle ouverture classeur date"