Macro mail a partir de plusieurs possibilités listbox

Version imprimable

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:

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

20/05/2019, 15h37
MarcelG

Bonjour Racham et bienvenu sur ce Forum,

A mon sens, il suffirait d'argumenter la procédure d'envoi de mail par les variables modifiées.
20/05/2019, 16h32
Rackham357

Salut @MarcelG

Merci pour ta réponse mais j'ai pas bien compris, dois je faire ?

Code:

Sub Mail_retour_flux(le_matin, le_am, le_nuit As String)
20/05/2019, 17h55
Rackham357

Petite mise a jour car j'ai réussi a afficher la fenêtre de ma trame de mail Outlook, mais celle ci se place par défaut sur "MATIN" même quand je sélectionne "AM" ou "NUIT"

Des idées ?

Merci
21/05/2019, 09h50
MarcelG
Bonjour Racham, Bonjour au Forum,

Ouh la!

C'est l'argument qui définit la valeur de la variable à utilser.

Exemple.

Au lieu de

Code:

Sub Mail_retour_flux(le_matin, le_am, le_nuit As String)

(Nota au passage. Ici, 2 arguments sont déclarés en Variant.)

Par exemple, la procédure peut s'argumenter
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Mail_retour_flux(période as string) Select case période Case "matin" .To = "mercatog" Case "am" .To = "ousskelnor" Case "nuit" .To = "Theze" .... End Select
Pour l'appel

Code:

Call Mail_retour_flux("matin")

Exemple bien-entendu à adapter.
21/05/2019, 12h44
Rackham357

Bonjour,

Autant pour moi j'avais pas compris ta remarque précédente et oui j'ai réussi a adapter des arguments
21/05/2019, 12h59
MarcelG

Salut,

OK.

Place cette discussion en mode "Résolue"

Si je peux me permettre, la bonne orthographe est

Citation:

Au temps pour moi

De mémoire, l'origine de cette expression est musicale.

Re, non le sujet n'est pas résolu, c'est gentil de me donner des cours d'orthographe mais je préfère zapper ca car l'informatique paie mieux que le Français :)

En fait quand je fais le pas à pas le mail s'ouvre seulement sur le premier choix du userform qui est la première fenêtre "MATIN"

Voici le code lié a l'userform et le code dans le module (ce qui est en commentaire est une autre possibilité de code

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
29
30
31
32
33
34
35
36
37
Sub UserForm_Initialize()
 
    With ListBox1
        .AddItem "MATIN"
        .AddItem "AM"
        .AddItem "NUIT"
    End With
 
    ListBox1.ListIndex = 0
 
If brigades.ListBox1.Value = "MATIN" Then
    feuil = 3
 
Select Case le_matin
'Case le_matin
End Select
End If
Exit Sub
 
If brigades.ListBox1.Value = "AM" Then
    feuil = 4
 
Select Case le_am
'Case le_am
End Select
End If
Exit Sub
 
If brigades.ListBox1.Value = "NUIT" Then
    feuil = 5
 
Select Case le_nuit
'Case le_nuit
End Select
End If
 
End Sub

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
29
Sub Mail_retour_flux()
 
Dim le_matin, le_am, le_nuit As String
 
Dim MonOutlook As Object
Dim Monmessagemat As Object
 
Dim la_brigade As String
 
'If brigades.ListBox1.Value = "MATIN" Then GoTo le_matin
 
le_matin:
 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
 
Set MonOutlook = Nothing
 
        With MonMessage
            .to = ""
            '.Cc = ""
            .Subject = ""
            .body = "Bonjour, " & Chr(10) & Chr(10) & "Voici le bilan de: " & Chr(10) & Chr(10) & "Cordialement"
            .Attachments.Add "C:\Users\xxxxx\tableau_MATIN.pdf"
            .OriginatorDeliveryReportRequested = True
            .ReadReceiptRequested = False
            .display
        End With
Exit Sub

D'avance, merci

CDLT

21/05/2019, 16h02
MarcelG
Citation:

c'est gentil de me donner des cours d'orthographe mais je préfère zapper ca car l'informatique paie mieux que le Français

Plus que discutable, comme attitude.
Passons...

Je ne comprends absolument rien à ton code lié au formulaire.

Ce que je voulais signifier.

Dans le formulaire.
Intégrer un bouton de commande dont l'activation ira définir
- la feuille (en cas de besoin, car je ne vois pas son utilisation)
- la pièce jointe au mail

Exemple

Dans le code lié au formulaire
Code:

1 2 3 4 5 6 Option Explicit Private Sub Btn_Mail_Click() Call Mail_retour_flux(Cstr(listbox1.Value)) Unload Me End Sub
J'utilise la propriété Cstr par prudence et donc par souci d'homogénéité. (Je me suis déjà fait piéger.)

Dans un module standard
Code:

1 2 3 4 5 6 Sub Mail_retour_flux(lemoment as String) '...... .Attachments.Add "C:\Users\xxxxx\tableau_" & lemoment & ".pdf" '........