Discussion :

[Thierry60440]

Bonjour,

j'ai besoin d'aide, j'ai un classeur qui me sert à envoyer un formulaire de motif d'absence. Suivant le motif, j'aimerais l'envoyer à des destinataires différents. J'ai deja une macro qui fonctionne, mais c'est pour tous le monde. Merci.

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
ActiveSheet.Range("A1:n40").Select
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour ," & vbCrLf & " " & vbCrLf & "Merci de bien vouloir prendre en considération la demande ci dessous." & vbCrLf & " " & vbCrLf & "Cordialement"
    .Item.To = "xxxxxx@xxx.xxx"
    .Item.Subject = Range("a8") & " / " & Range("c15") & " / " & Range("c13")
    .Item.send
    Range("c13,c15,e22,f24,f26,i24,i26,c30").Value = ""
 
Unload Me
UserForm_Quitter.Show
 
 
End With
End Sub

[Menhir]

A priori, il suffit de modifier la ligne .Item.To =.

Elle est assignée par une simple chaine de caractère.
Il suffirait donc sans doute de faire une structure Select Case avec un Case par motif qui permette de renseigner la chaine de caractère avec le mail du destinataire souhaité.
Lire ça : https://docs.microsoft.com/fr-fr/off...case-statement

Mais pour en dire plus, il faudrait que tu expliques où se trouve les données listant les motifs et les adresses correspondantes et aussi comment tu comptes transmettre ce motif à la macro (question posée à l'utilisateur ? valeur dans une cellule ? autre ?).

[MarcelG]

Salut,

Si dans une feuille annexe, tu disposes
d'une plage de cellule nommée liste_1 et reportant la liste des destinataires propre au motif A
d'une plage de cellule nommée liste_2 et reportant la liste des destinataires propre au motif B



alors la fonction suivante te retournera pour un motif donné une chaîne de caractères représentant la liste des destinataires.

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
Option Explicit
 
Public Function listedest(lemotif As String) As String
 
Dim rng_liste As Range
 
Dim tablo() As Variant
 
With Worksheets(1)
        Select Case lemotif
                Case "A"
                        Set rng_liste = .Range("liste_1")
                Case "B"
                        Set rng_liste = .Range("liste_2")
        End Select
End With
 
ReDim tablo(1 To rng_liste.Count)
tablo = Application.Transpose(rng_liste)
 
listedest = Join(tablo, ";")
 
Set rng_liste = Nothing
 
End Function

Ainsi

Code :

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

1
2
3
4
?listedest("A")
valpo@licella.fr;chiant@superiore.fr
?listedest("B")
fiano@campania.fr;verduzzo@friul.fr;...neziagiulia.fr

C'est cette chaîne de caractères qui alimentera le paramètre destinataire (To)

[Thierry60440]

Merci à tous les 2.

Pour répondre à Menhir, tout commence lorsque j'ouvre un classeur, un userform s'ouvre avec 2 combobox. Dans une, le choix du nom de la personne concernée, dans l'autre le motif, (cela se trouve dans une liste sur une feuille). Lorsque je valide, ça ce retranscrit dans 2 cellules distincte d'une feuille (celle qui est envoyée), c'est à partir de là que je voudrais que le choix soit

Pour MarcelG, étant un peu novice avec les macros, le ne comprend pas ce je dois mettre à la place de A et B ainsi que liste_1 et liste_2, sachant que j'ai 9 motifs et que je peux avoir plusieurs destinataires par motif.

J’espère avoir été clair avec mes explications, et vous remercie encore vivement.

je vous joint mon projet.

absences.xlsm