Private Sub Workbook_Open()
Dim myjour As Date
'si c'est samedi on ajoute 7 jours
If Weekday(Date) = 7 Then
myjour = CDate(Date + 7 & " 12:00:00")
GoTo fin
End If
'si pas samedi on ajoute
jourenplus = 7 - Weekday(Date)
myjour = Date + jourenplus
myjour = CDate(myjour & " 12:00:00")
fin:
Application.OnTime myjour, "ferme"
End Sub