Bonjour a tous,

Je cherche une macro qui, a partir d'un choix (3 choix possibles) d'une listbox, me permet d'acceder a ma macro d'envoi de mail.

Ayant 3 possibilités j'ai fais 3 fois la meme macro avec un select case qui choisi selon la possibilité

Etant donné que le listbox est sur un autre module, existe t-il un code / une fonction qui reprenne mon choix que j'ai fais précédemment et qui le dirige automatiquement sur le select case concerné ?

Merci a ceux et celles qui m'aiguilleront..

Cordialement

(Macro contenant les select case ci-joint

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Sub Mail_retour_flux()
 
Dim le_matin, le_am, le_nuit As String
 
If brigades.ListBox1.Value = "MATIN" Then Select Case le_matin
End If
If brigades.ListBox1.Value = "AM" Then Select Case le_am
End If
If brigades.ListBox1.Value = "NUIT" Then Select Case le_nuit
End If
 
Case le_matin:
 
Dim Monoutlook As Object
Dim Monmessagemat As Object
 
Set Monoutlook = CreateObject("Outlook.Application")
Set Monmessage = Monoutlook.CreateItem(0)
 
Set Monoutlook = Nothing
 
        With Monmessage
            .To = "xxxxx"
            '.Cc = "xxxxx"
            .Subject = "xxxxx"
            .Body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
            .Attachments.Add "xxxxx"
            .OriginatorDeliveryReportRequested = True
            .ReadReceiptRequested = False
            .display
        End With
 
Case le_am:
 
Dim Monoutlook As Object
Dim Monmessagemat As Object
 
Set Monoutlook = CreateObject("Outlook.Application")
Set Monmessage = Monoutlook.CreateItem(0)
 
Set Monoutlook = Nothing
 
        With Monmessage
            .To = "xxxxx"
            '.Cc = "xxxxx"
            .Subject = "xxxxx"
            .Body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
            .Attachments.Add "xxxxx"
            .OriginatorDeliveryReportRequested = True
            .ReadReceiptRequested = False
            .display
        End With
 
Case le_nuit:
 
Dim Monoutlook As Object
Dim Monmessagemat As Object
 
Set Monoutlook = CreateObject("Outlook.Application")
Set Monmessage = Monoutlook.CreateItem(0)
 
Set Monoutlook = Nothing
 
 
        With Monmessage
            .To = "xxxxx"
            '.Cc = "xxxxx"
            .Subject = "xxxxx"
            .Body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
            .Attachments.Add "xxxxx"
            .OriginatorDeliveryReportRequested = True
            .ReadReceiptRequested = False
            .display
        End With
 
End Select
 
Call Module9.Mise_en_PDF
End Sub