Salut tous le monde,
Dans mon document excel, je veux créer en vba un popup qui m'avertir si un permis de conduire est expiré pour un chauffeur et cela, à l'ouverture du fichier excel.
Dans la colone A, ce trouve le nom du chauffeur et dans la colone D ce trouve la date d'expiration.
Merci.
Private Sub workbook_open()
Dim Dt As Range
Dim Ws As Worksheet
Set Ws = Worksheets("StatutPermis") For Each Dt In Ws.Range("D8:D" & Ws.Range("D65536").End(xlUp).Row)
If Dt < Date Then _
MsgBox "La date a expiré pour " & Dt.Offset(0, -3) & " '" & _ Dt & "'", _ vbExclamation, " message d'alerte "
Next Dt
End Sub