Private Sub Workbook_Open()
On Error Resume Next
If IsError(ThisWorkbook.Names("toto")) Then
ThisWorkbook.Names.Add Name:="toto", RefersTo:="=1"
Application.OnTime Now, "Mamacro"
ThisWorkbook.Close True
End If
ThisWorkbook.Names("toto").Delete
ThisWorkbook.Save
End Sub