Excel annonceur de date d'expiration via mail

Bonjour,

créés ta liste dans une feuille avec des dates d'anniversaire.
crées dans une autre feuille ta liste des personnes avec les mails.
Maintenant, tu vas dans Outils, macro, visual basic editor
Tu te mets sur Workbook.
En haut est sélectionné par défaut général, tu choisis Workbook.
ici, tu mets ca (fonctionne avec Outlook uniquement):

Private Sub Workbook_Open()

sheets("feuilouanniversaire").select
i=2 'si tes anniversaires commencent en ligne 3, remplaces 2 par 3
do while cells(i,1) <> "" 'vérifies que ta première colonne contient toujours une donnée

if cells(i,3) = date - 3 '3 correspond à la colonne ou tu as tes anniversaires. Si c'est pas le bon numéro, modifies le

if anniversaire="" then
anniversaire = cells(i,2) & cells(i,1) 'ta 2ème colonne = prénom si c'est pa bon mets le numéro de colonne à la place du 2, 1 est pour le nom
else
anniversaire = anniversaire & vbnewline & cells(i,2) & cells(i,1)
end if

i=i+1
end if

sheets("feuilleoutuasadressesmails").select
i=1
do while cells(i,2) <>"" '2 est la colonne ou tu as tes mails
if adresse ="" then
adresse = cells(i,2) & ";"
else
adresse = adresse & cells(i,2) & ";"
end if

Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = adresse
msg.Subject = "Il y a des Anniversaires qui arrivent"
msg.Body = anniversaire
Application.DisplayAlerts = False

End Sub

pour finir toujours dans visual basic editor, tu vas dons options et tu coches : microsoft outlook 11.0 object library.

Normalement, à chaque fois que tu ouvriras le fichier, si il y a des anniversaires qui arrivent dans 3 jours, ca te préparera un mail.