Code vba ne fonctionne pas

Le code fonctionne !

J'ai tout effacé et recommencé, en prenant soin de bien placer le code.

Merci

Bonne soirée

Bonjour,

Les MsgBox fonctionnent, mais le code ne se lance pas à l'ouverture du classeur.

Je vais arrêter de me prendre la tête et je vais recommencer un autre code.

Merci pour votre intervention,

Bon week end

bonjour,

et ainsi?

Option Explicit

Private Sub Workbook_Open()
    Dim todayDate As Date
    todayDate = Date
    ' Vérifier si la date est entre le 5 et le 15 de chaque mois
    If Day(todayDate) >= 5 And Day(todayDate) <= 15 Then
             Dim lastRow As Long
            lastRow = Cells(Rows.Count, "A").End(xlUp).Row
        
        ' Vérifier si l'opération n'a pas déjà été enregistrée pour ce mois
        If Month(Cells(lastRow, "A").Value) <> Month(todayDate) Then
        ' Ajouter une nouvelle ligne avec les informations
              Cells(lastRow + 1, "A").Value = todayDate
              Cells(lastRow + 1, "C").Value = "hfdhgfhff"
              Cells(lastRow + 1, "D").Value = "plltisqkjs"
              Cells(lastRow + 1, "F").Value = "aamnxfekl"
              Cells(lastRow + 1, "I").Value = "128"
              MsgBox ("travail fait, voir ligne " + CStr(lastRow + 1))
        Else
            MsgBox ("deja fait pour ce mois")
        End If
    Else
        MsgBox ("pas le bon jour")
    End If
End Sub