Private Sub Workbook_Open()
Dim sem$, fichier$, ouvre As Boolean
sem = Format(Application.IsoWeekNum(Date), "\S00")
fichier = Me.Path & "\compteur " & sem & ".xlsm"
If Dir(fichier) <> "" Then Exit Sub
If MsgBox("Créer le fichier " & fichier & " ?", 4) = 7 Then Exit Sub
If LCase(Me.Name) <> "compteur vierge.xlsm" Then
Application.ScreenUpdating = False
Application.EnableEvents = False 'évite de déclencher la Workbook_Open
Workbooks.Open Me.Path & "\compteur vierge"
Application.EnableEvents = True
ouvre = True
End If
ActiveWorkbook.SaveAs fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
[A1] = sem: ActiveWorkbook.Save 'pour tester
If ouvre Then Me.Close True
End Sub