Re,
Il serait bien d'être plus explicite la prochaine fois, merci d'y faire attention SVP
Un sujet marqué comme [résolu], devrait l'être
Sub CréerMail()
Dim OutApp As Object, OutMail As Object
Dim MonContenu As String
Dim Dest As String
'
Application.ScreenUpdating = False
Application.EnableEvents = False
' Créer une instance Outlook
Set OutApp = CreateObject("outlook.application")
' Pour chaque CheckBox
Dim Ctl As Control
For Each Ctl In Me.Controls
' Vérifier si le contrôle est un CheckBox
If TypeOf Ctl Is MSForms.CheckBox Then
' Vérifier si Checkbox est cochée
If Ctl.Value = True Then
' Ajouter le destinataire
Dest = Dest & Ctl.Caption & ";"
End If
End If
Next Ctl
' Créer le mail
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display ' pour avoir la signature
'.To = ""
'.CC = ""
.BCc = Dest
'.Attachments.Add (PDF)
.Subject = Feuil1.Range("B9").Value & " " & Feuil1.Range("B13").Value & " " & Feuil1.Range("B12").Value & " " & ">" & " " & Feuil1.Range("B1").Value & " " & Feuil1.Range("B19").Value & " " & Feuil1.Range("B20").Value
MonContenu = "Bonjour, <br>" _
& "Merci de me donner votre solution : <br>"
.HTMLbody = MonContenu & .HTMLbody
'.Send '(pour envoi direct)
End With
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
A+