Discussion :

[MInfo25]

Bonjour
J'aimerais envoyer un email à chaque changement dans une cellule de la colonne D qui contient le mot "En formation". Pour l'instant rien ne se passe, je n'ai pas de message d'erreur, le mail n'est pas envoyé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
Dim i As Integer
 
 
'Set OL = CreateObject("Outlook.Application")
'Set myItem = OL.CreateItem(olMailItem)
 
 
For i = 2 To 21
 
 
Set OL = CreateObject("Outlook.Application")
Set myItem = OL.CreateItem(olMailItem)
 
 
If Range("D" & i).Text = "En formation"  Then
 
 
   With myItem
        .To = "monadressemail1@yahoo.fr"
        .Subject = Range("E" & i).Text & " est entré(e) en formation"
        .Body = "Cordialement" & Chr(13) & Chr(10) & "Lucien DUMARD"
        .Send
    End With
 
 
End If
 
 
Next
 
 
End Sub

[Philippe Tulliez]

Bonjour,

J'aimerais envoyer un email à chaque changement dans une cellule de la colonne D qui contient le mot "En formation". Pour l'instant rien ne se passe, je n'ai pas de message d'erreur, le mail n'est pas envoyé.

C'est normal qu'il ne se passe rien puisque vous utilisez la mauvaise procédure événementielle.
En effet, la procédure que vous avez choisi intercepte l'événement de sélection d'une cellule or vous souhaitez intercepter le changement d'une valeur dans une cellule donc choisissez la procédure Worksheet_Change

Je vous conseille la lecture du tutoriel Les évènements dans la feuille de calcul Excel

[MInfo25]

Ok j'ai remplacé la procédure par Worksheet_Change mais j'ai maintenant cette erreur sur la ligne 23

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.To = "monadressemail1@yahoo.fr"

[Philippe Tulliez]

Bonjour,

Ok j'ai remplacé la procédure par Worksheet_Change mais j'ai maintenant cette erreur sur la ligne 23

Cela prouve au moins que l'événement a bien été intercepté
Il s'agit d'une autre erreur mais je n'ai pas le temps de vérifier si vous utilisez la bonne syntaxe ou utilisez le bon objet.