Afficher un message si une date de naissance = date du jour

Laguamar à dit:

Salut,
je souhaite afficher je souhaite afficher un message "Bon anniversaire Untel" lorsque ma date du jour correspond à l'une des dates de naissance de mon tableau en feuil2. Ex. ci-joint.

Merci par avance !

Cliquez pour agrandir...

phlaurent55 à dit:

Bonjour Laguamar, et bienvenue sur le forum

avec ce code dans ThisWorkBook

Code:

Private Sub Workbook_Open()
flag = 0
texte = "Bonne Anniversaire à  "
For i = 2 To Sheets("Feuil2").Range("A65535").End(xlUp).Row
If Day(Sheets("Feuil2").Cells(i, 1)) = Day(Date) And Month(Sheets("Feuil2").Cells(i, 1)) = Month(Date) Then
texte = texte & Sheets("Feuil2").Cells(i, 2) & " et à "
flag = 1
End If
Next i
texte = Left(texte, (Len(texte) - 6))
If flag = 0 Then texte = "PAS D'ANNIVERSAIRE AUJOURD'HUI"
Sheets(1).[A2] = texte
Application.Speech.Speak [A2]
End Sub

à+
Philippe

Cliquez pour agrandir...