Macro envoi mail excel 2007

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je suis entrain de réaliser un fichier excel type repertoire et j'aimerais créer une Macro qui puisse m'envoyer un mail à certaines personnes faisant parties d'une certaine commission (colonne U). Je pense qu'il faudrait que je crée une macro par commission avec quelquechose qui doit ressembler à cela :
Code:

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 Sub SendMail_Outlook() Dim OL As Object Dim OLmail As Object Dim Dest As String Dim I As Long Set OL = CreateObject("Outlook.Application") Set OLmail = OL.CreateItem(0) For I = 2 To Range("S" & ActiveSheet.Rows.Count).End(xlUp).Row Dest = Dest & Range("S" & I) & ";" Next I With OLmail .To = Dest .Subject = "" .Body = "" .Display End With End Sub
Mais cette Macro ne tient pas compte du type de commissions... Et mes connaissances sont vraiment limitées pour ajouter cette condition dans cette macro.
Je joins le fichier en exemple.

Merci d'avance à Tous.

Bonjour,
tu peux tester la colonne U dans ta boucle (exemple avec "Communication"):

Code:

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
Sub SendMail_Outlook()
 
Dim OL As Object
Dim OLmail As Object
Dim Dest As String
Dim I As Long
 
Set OL = CreateObject("Outlook.Application")
Set OLmail = OL.CreateItem(0)
 
For I = 2 To Range("S" & ActiveSheet.Rows.Count).End(xlUp).Row
 
    If Range("U" & I) = "Communication" Then
        Dest = Dest & Range("S" & I) & ";"
    End If
 
Next I
 
    With OLmail
 
    .To = Dest
    .Subject = ""
    .Body = ""
    .Display
 
    End With
 
End Sub

09/02/2013, 18h42
youlig

Bonjour Tee Grandbois,

Merci beaucoup, c'est exactement ce que je voulais.

Bon week end et à plus tard.

Youlig