Christian0258
XLDnaute Accro
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
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