Test déclencher une action

'----------------------------------
'          Module ModMAJ
'----------------------------------
Option Explicit

Private Const jourdelan = "1/1"
Private jour
Private mois
Private an

Public Function DoesJourDelAn() As Boolean
    
    jour = Day(Date)
    mois = Month(Date)
    an = Year(Date)
    
    If CStr(jour & "/" & mois) = jourdelan Then
        DoesJourDelAn = True
    Else
        DoesJourDelAn = False
    End If
    
End Function

Public Function DoesRAZ() As Boolean
Dim lig As Long
Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Calendrier")
    lig = 2
    While ws.Range("A" & lig).Value <> ""
        If CInt(ws.Range("A" & lig).Value) = an And ws.Range("B" & lig).Value = "Oui" Then
            RAZ = True
            Exit Function
        End If
        lig = lig + 1
    Wend
    
    RAZ = False
    
End Function

Public Sub MAJCalendrier()
Dim derlig As Long
Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Calendrier")
    derlig = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
    ws.Range("A" & derlig).Value = an
    ws.Range("B" & derlig).Value = "Oui"
    
End Sub

Private Sub Workbook_Open()

    If ModMAJ.DoesJourDelAn = True Then
        If ModMAJ.DoesRAZ = False Then
            'code pour faire la remise à zéro des tableaux
            ModMAJ.MAJCalendrier
        End If
    End If
    
End Sub

'Pour tester avec le jour courant (aujourd'hui le 8/1/2014)
Private Const jourdelan = "8/1"