Si a1=aujourdhui() then "email"

A

Arnaud

Guest

• 12 Mai 2005

• #2

Salut,

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

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 😉

 

Vote positif 0 Vote négatif

S

stef

Guest

• 12 Mai 2005

• #3

Oki, merci arnaud.

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

 

Vote positif 0 Vote négatif

S

stef

Guest

• 12 Mai 2005

• #4

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.

 

Vote positif 0 Vote négatif

S

stef

Guest

• 13 Mai 2005

• #5

Re bonjour tout le monde,

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

 

Vote positif 0 Vote négatif

S

stef

Guest

• 14 Mai 2005

• #6

😱 Personne pour m aider?

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 14 Mai 2005

• #7

Salut,


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

Patrick

 

Vote positif 0 Vote négatif

S

stef

Guest

• 15 Mai 2005

• #8

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?

 

Vote positif 0 Vote négatif