Alerte sur date echeance + envoi message

Bonjour je dois mettre en place un tableau de sous traitance avec une liste de documents ayant une date de validité.

Le bus est que sur un document ayant une validité de 3 mois, se crée une alerte au moins 10 jours avant ou au pire après, afin de relance le client. J'ai glané sur internet pour arriver à ces codes sur excel.

Mais sur visual basic, une ligne s'affiche en jaune et je ne sais pas pourquoi. (vu que j'y comprends pas grand chose...)

POUrrirez vous m'aider ou au moins m'expliquer ce que je dois faire pour avoir cette alerte et un message dalerte à l'ouverture du document quand la date est dépassé ou va être dépassée ?

Merci pour votre précieuse aide.

Bonjour Zebu9 et

1) tu dois définir ta plage nommée "alerte" en sélectionnant K6:K48

2) Tu ne dois pas utiliser "Date" en tant que variable c'est un terme utilisé par VBA

Ensuite tu peux utiliser ce code

Private Sub Workbook_Open()
  Dim sDate As String
  Dim TabAlerte As Range
  For Each TabAlerte In ActiveSheet.Range("alerte")
    If TabAlerte = "alerte" Then
    ' Récupérer la date de la colonne d'avant
      sDate = TabAlerte.Offset(0, -1).Value
      MsgBox "la date : " & sDate & " doit être réactualisée ", vbCritical
    End If
  Next
End Sub

A+