Private Sub Workbook_Open()
Dim NumSem As Date
Dim Year As Date
Dim ChDir As String
Dim NomCompletFichier As String
Dim NomFichier As String
ChDir = ThisWorkbook.Path
NumSem = Format(Date, "WW", , vbFirstJan1)
Year = Format(Date, "YYYY")
NumSem1 = Format(NumSem, "00")
NomFichier = "Checklist-S" & Format(NumSem, "00") & "_" & Format(Year, "0000") & ".xlsm"
OldFichier = "Checklist-S" & Format(NumSem - 1, "00") & "_" & Format(Year, "0000") & ".xlsm"
NomCompletFichier = ChDir & "\" & NomFichier
If CDate(Mid(ActiveWorkbook.Name, 22, 2)) < NumSem Then
Dim Response As Integer
Response = MsgBox(prompt:="Nous sommes en semaine " & NumSem1 & vbCrLf & "Voulez vous générer un nouveau fichier ?", Buttons:=vbYesNo)
If Response = vbYes Then
MsgBox "Nouveau fichier " & NumSem1 & " crée"
ActiveWorkbook.SaveAs Filename:=NomCompletFichier
Name "J:\" & OldFichier As "J:\Archive\" & OldFichier
else
end if
end if
end sub