Discussion :

[youlig]

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 :

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
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.

[tee_grandbois]

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

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
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

[youlig]

Bonjour Tee Grandbois,

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

Bon week end et à plus tard.

Youlig