Message d'alerte a l'ouverture

Bonjour le Forum je revient vers vous pour une petite question

Je sait qu'il est possible de faire un message a l'ouverture du classeur mais je patauge un peut la .

je souhaiterais qu'un message s'affiche avec "prévoir le changement électrode du site ******** " quand la date arrive 30 jours a échéance. et je doit le faire sur 3 éléments (en jaune dans le fichier joint)

j'ai trouvé ceci:

Private Sub Workbook_Open()
Dim ter As Range
For Each ter In Range("W3:" & Range("W3").End(xlDown).Address)
If ter.Value - 30 >= Date Then
        MsgBox "DTD " & ter.Offset(0, 1) & " attention Prévoir le changement électrodes Défibrilateur"
    End If
Next ter
End Sub

Mais cela ne fonctionne pas bien

je vous joint mon fichier test pour être plus clair

Merci d'avance de votre aide

27test.zip (13.25 Ko)

Et si je peux abuser

avec dans le message deux bouton (commander) pour que le message n’apparaisse plus

et (rappeler plus tard) .

Merci a tous

et j'en profite pour dire un grand merci a tout les bénévole de ce forum qui sans eu on serais dans la mer.....

MERCI

Rechercher des sujets similaires à "message alerte ouverture"