VBA execution macro tous les ans

Warder -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

Débutante en VBA j'ai inventé une formule pour répéter une macro tous les ans. Et évidemment cela ne marche pas :p

Sub date_tous_les_ans()

If Range("B12").Value = VBA.Date(yyyy, -1) Then
Call Historique

End If

End Sub

Je remercie tous ceux qui prendrons le temps de m'expliquer mes erreurs

Warder

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour
    un exemple où la procedure message est appelée à l'ouverture du classeur si la date anniveraire est la date du jour
    Private Sub Workbook_Open()
    Dim DateAnniversaire As Date, DateJour As Date
      DateAnniversaire = Range("B2").Value
      DateJour = Now
      If (Day(DateJour) = Day(DateAnniversaire) And Month(DateJour) = Month(DateAnniversaire)) Then Call message
    End Sub

    bonne suite
    0