Envoi mail a plusieurs personnes

Je veux envoyer un mail a plusieurs personnes après avoir choisi les personnes a partir d'une listbox, la listbox est rempli a partir d'une feuille "service" colonne A (noms des personnes), les adresse mail associées se trouvent en colonne E.
L'operation est la suivante, on crée un fichier pdf, on le sauvegarde apres on envoit un mail:
CODE 1 creattion du pdf, sauvegarde et on envoi mail

Private Sub Valider_Click()
'Sauvegarder les donnees
SauvegardeFA
'creation pdf
PDFCreator Me
'envoie du mail
subject = "Nouvelle fiche anomalie : FA " & NumFA.Value & " cr?er par " & Nom1.Value
body = "Une Nouvelle fiche anomalie vient d'?tre cr?er : " & Description1.Value
sendMail CStr(subject), CStr(body)
'reinitialiser le formulaire
''vider le formulaire
For Each ctrl In Me.Controls
If (TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox") Then
ctrl.Value = ""
End If
Next
End Sub

Avec SendMail c'est un module:

CODE 2

Public Sub sendMail(subject As String, body As String)
'ouverture outlook
Set oOutlook = CreateObject("Outlook.Application")
SelectionDestinataire.Show 'userform pour choisir les destinataires
If SelectDestChoice = "Annuler" Then
Exit Sub
Else
mailDest = ThisWorkbook.Worksheets("service").Range("E" & CInt(SelectDestChoice) + 2).Value
End If
'Personnes qui reçoivent les mails automatiquement
mailA = "aaa@gmail.com"
mailB = "bbb@gmail.com.com"
Set oMailItem = oOutlook.CreateItem(olMailItem) 'cree un objet mail
oMailItem.To = mailDest & ";" & mailB & ";" & mailA 'EmailDestinataire
oMailItem.subject = "[Mail automatique]" & subject 'SujetMail
oMailItem.attachments.Add PDFPath & "\" & PDFName
oMailItem.body = body 'CorpsMail
oMailItem.Send 'Envoi du mail
End Sub

   CODE 3
Dans le userform SelectionDestinataire, on chosit les personnes et puis on valide:
Private Sub Valider_Click() 'choisir les personnes
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.list(i) & " "
Next i
' MsgBox temp
SelectDestChoice = me.ListBox1.ListIndex
Unload Me
End Sub

Pour les 2 personnes ou le mail s'envoi automatiquement ca passe sans aucun problème, mais pour ceux que je choisi a partir de la listbox il me choisi une seule personne et c tjr la mm personne

Bonsoir,

Voyez le fichier ci joint :

Il vous aidera peut-être à avancer dans votre projet.

@ bientôt

LouReeD

Bonjour à tous,

@LouReeD >> Est-ce que tu as remarqué que szaghd a posté la même demande 3 fois > mais à des heures différentes ??

ric

ric, bonjour,

non je n'ai pas vu et il est vrai que ce n'est pas forcément ce que je regarde... Ceci dit, a t il eu une réponse aussi parfaite que la mienne ? Je plaisante ! Vous me connaissez... En fait non, mais oui, ce que je veux dire on s'est déjà croisé ici...

@ bientôt

LouReeD

Bonjour le fil, dsl pour le retard j'avais un soucis avec ma connexion internet, je vais tester vos propositions.

Bonjour

LouReed, j'ai testé ton fichier j'ai essayé a l'adapter a mon fichier mais quand je choisi les personnes a qui je vais envoyer le mail je trouves pas les personnes que j'ai sélectionné.

Bonjour,

désolé pour ma "non réponse"... Le message est passé à travers le filet !
y a t il toujours un problème ?

@ bientôt

LouReeD