Modifier cellule au changement de date

[chajmi]

Je créé des fiches numérotées (en A2) automatiquement en vba
Quand ma fiche est remplie, je l'imprime, je la sauvegarde en pdf et j'efface les données (tout ça en vba) pour saisir une nouvelle fiche.
Toujours en vba le numéro en B2 s'incrémente de 1 et change le numéro de la fiche
Je crée un certain nombre de fiches dans la journée (donc à chaque fois B2 s'incrémente de 1)
Je voudrais qu'à chaque changement de jour la valeur de B2 revienne à 1
Il me faudrait une macro déclenchée par le changement de date
Est-ce possible ?
merci de votre aide

 

[Robert]

Bonjour Chajmi, bonjour le forum,

Je pense que tu devrais stocker la date quelque part à la fermeture du fichier. Par exemple :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("AA1").Value = Date 'cellule et onglet à adapter
ThisWorkbook.Save
End Sub

Puis à l'ouverture, ce code :

Private Sub Workbook_Open()
If Date <> Sheets("Feuil1").Range("AA1").Value Then Sheets("ton onglet").Range("B2").Value = 1
End Sub

Ces deux codes sont à mettre dans le composant ThisWorkbook...