Numéro de semaine (et non la date) à l'ouverture du fichier...

Re bonjour à tout le forum,

J'utilise cette commande afin de placer automatiquement à l'ouverture du fichier (en E23) la date du jour.

Private Sub Workbook_Open()

If IsEmpty(Sheets("SAISIES").Range("E21")) Then Sheets("SAISIES").Range("E23") = Date
End Sub


Pourriez-vous ce qu'il faut modifier pour remplacer la date par le Numéro de semaine...

Merci, à nouveau pour votre aide.

Bien amicalement,
Christian