Comment envoyer message vers outlook d'après valeur cellule Exce l

Bonjour
Pas trop compris parce que
Macro = Programmation !

Voici un exemple de code à adapter
(à positionner dans le code de la feuille : clic droit, visualiser le code
sur l'onglet de la feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail

On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "zozo@titi.fr"
.Body = "Joyeux anniversaire !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub

Cordialement
Pascal


"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message de
news: 7C01FA4E-F017-4D18-985F-030523463719@microsoft.com...

Bonjour,

Je voudrais envoyer automatiquement (avec Macro si nécessaire, mais sans
programmation) un court message d'alerte vers la messagerie Outlook d'un
service en fonction de la valeur d'une cellule date.

Merci de votre aide.
Pierre

Bonjou "Papou",

Merci pour ta réponse. Je ne sais pas utiliser le code, mais je sais créer
des macros facilement, étant donné que l'on enregistre sous un nom de macro
une séquence d'opérations que l'on fairait manuellement sans la macro pour
les exécuter en automatisme ! Donc, si je crée une macro pour imprimer, je
lui dit que lorsque je sélectionne CTRL + P, il faut faire "fichier",
"imprimer", 2 exemplaires, ok.. Je ne connais donc pas le code; désolé.

C'est pour celà que je cherche un moyen plus simple pour moi.

Cordialement.

Pierre.

Bonjour
Pas trop compris parce que
Macro = Programmation !

Voici un exemple de code à adapter
(à positionner dans le code de la feuille : clic droit, visualiser le code
sur l'onglet de la feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail

On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
..To = "zozo@titi.fr"
..Body = "Joyeux anniversaire !"
..Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub

Cordialement
Pascal


"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message de
news: 7C01FA4E-F017-4D18-985F-030523463719@microsoft.com...

Bonjour,

Je voudrais envoyer automatiquement (avec Macro si nécessaire, mais sans
programmation) un court message d'alerte vers la messagerie Outlook d'un
service en fonction de la valeur d'une cellule date.

Merci de votre aide.
Pierre