Si a1=aujourdhui() then "email"

[stef]

Bonjour tout le monde,

j ai un tableau avec des dates, et j ai besoin d'envoyer un mail si la datte affichée en A1 par exemple est 'aujourdhui()'. Vous avez une idée ou c est du domaine de l infaisable?

 

[Arnaud]

Salut,

Voici un petit exemple vite fait. A toi d'adapter le code....

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWorkbook.Worksheets(1).Range('A1') = Date Then
    EnvoyerMail   ' Fonction a faire ou adapter le code de l'exemple du lien si dessous
End If
End Sub

lien pour envoyer un mail Lien supprimé
si tu fais une recherche, il y a pas mal d'autre exemple d'envoi de mail.

bonne chance

 

[stef]

Oki, merci arnaud.

Je vais voir tout ca, je reviendrai le fil si jamais j ai un probleme.

 

[stef]

Re,

j ai essayer et malheuresement je n ai pas reuusi a adapter le code pour mon fichier.

Peux tu m envoyer un exemple qui m enverrai un message taper par exemple en b1 avec le sujet en B2 a l adresse indiquée en b3 si la valeur a1=aujourdhui()?

Merci de ton aide.

 

[stef]

Re bonjour tout le monde,

pensez vous que se soit possible ou vaut mieux que je laisse tomber?

 

[stef]

Personne pour m aider?

 

[pat1545.]

Salut,


Va voir la bas : http://www.rondebruin.nl/sendmail.htm

Patrick

 

[stef]

Merci pour ton aide mais mes petites connaissances en vba ne sont pas tres developper, peux tu me mettre un exemple tout simple que je pourrais adapter a mon fichier?