Bonjour,
Pas sur d'avoir compris mais essaye ces lignes de codes dans le Module du ThisWorkBook
Private Sub Workbook_Open()
[A1] = IIf([B1] = Date, [A1] + 1, 1)
[B1] = Date
MsgBox "N° AUD" & -DateDiff("d", Date, "01/01/2011") & "-" & [A1]
End Sub
A chaque ouverture de ton fichier si la date en B1 est la même que la date d'aujourd'hui, le N° de Compteur s'incrémentera de 1. Le jour d'après la différence de Date entre le 01/01/2011 et aujourd'hui augmentera de 1 et remettra le Compteur d'ouverture du Fichier à 1.
A charge pour toi de trouver une place pour mettre ce Numéro