Private Sub Workbook_Open()
If Sheets("TEST").Range("A1") = "" Then Sheets("TEST").Range("A1") = Date
If Date <> Sheets("TEST").Range("A1") + 7 Then
'[COLOR="Red"]MsgBox "déjà ouvert cette semaine"[/COLOR]
'que je remplace par
Exit Sub
End If
If Date = Sheets("TEST").Range("A1") + 7 Then
Sheets("TEST").Range("A1") = Date
[COLOR="Red"]msgbox "test"[/COLOR]' ton code
End If
End Sub