Private Sub Workbook_Open()
dateDebut = Range("A1") 'contient la date de début à partir de laquelle le controle se fait
NumSemDeb = WorksheetFunction.WeekNum(dateDebut) 'récupère le numéro de semaine de la date de début
NumSemAct = WorksheetFunction.WeekNum(Date) 'récupère le numéro de semaine en cours
If (NumSemAct - NumSemDeb) Mod 5 = 4 Then 'si il y a un écart de x*5semaines
MsgBox NumSemAct - NumSemDeb + 1 & " semaines"
End If
End Sub
Option Explicit
Private Sub Workbook_Open()
Dim DCyc As Date, NoterDCyc As Boolean
On Error Resume Next
DCyc = [DébutCycle]
If Err Then DCyc = Date: NoterDCyc = True
On Error GoTo 0
Select Case Date - DCyc
Case Is >= 7: DCyc = DCyc + 35: NoterDCyc = True
Case Is >= 0: MsgBox "Coucou"
End Select
If NoterDCyc Then ThisWorkbook.Names.Add "DébutCycle", _
"=DATEVALUE(""" & Format(DCyc, "dd/mm/yyyy") & """)"
End Sub
Private Sub Workbook_Open()
Dim NbJr As Long
NbJr = Date - Feuil1.[C3].Value
If NbJr >= 35 And NbJr < 40 Then MsgBox "maintenence à faire.", vbInformation, "Ouverture " & Me.Name
End Sub