Envoi plusieurs pièces jointes avec Macro

[rainbow69006]

Bonjour à tous,

J'ai un userform qui me permet de créer des mail automatique.
Il permet de joindre des pièces jointes en fonction de deux checkbox.
Pour le moment avec le code ci dessous, je peu envoyer un ou l'autre des pièces jointe mais pas les deux en même temps (Si les deux checkbox sont cochés)

Ma question comment faire pour que lorsque je coche les deux checkbox cela m'envoi les deux pièces jointes?

Merci d'avance

Code:

Private Sub CheckBox9_Click()

If CheckBox9.Value = True Then
LabelChemin.Caption = "C:/essai2.doc"
Else
LabelChemin.Caption = ""
End If

End Sub

Private Sub CheckBox10_Click()

If CheckBox10.Value = True Then
LabelChemin.Caption = "C:/essai1.doc"
Else
LabelChemin.Caption = ""
End If

End Sub

'Envoi Email1
'===========================================================================

Private Sub CommandButton5_Click()

Dim LigF As Long, Niveau As Integer
Dim ApplicOutlook As Object
Dim ElémentCourrier As Object
Dim Cellule As Range
Dim Sujet As String
Dim AdresseElec As String
Dim Msg As String

'=============================================================

'Création de l'objet Outlook
Set ApplicOutlook = CreateObject("Outlook.Application")

'Extraction des données

'====================================
Sujet = AA
AdresseElec = LabelAdresse.Caption
'====================================

'Composition du message

'===================================
Msg = TextBox3.Value & vbLf & vbLf
'===================================
Msg = Labelcontact.Caption
Msg = Msg & " avec rappel" & vbLf
Msg = Msg & " " & vbLf & vbLf
Msg = Msg & "En vous remerçiant"

Set ElémentCourrier = ApplicOutlook.CreateItem(0)

PathName = LabelChemin.Caption

With ElémentCourrier
If CheckBox8.Value = True Or CheckBox9.Value = True Or CheckBox10.Value = True Then
.To = AdresseElec
.Subject = Sujet
.Body = Msg
.Attachments.Add PathName
.Display
Else
.To = AdresseElec
.Subject = Sujet
.Body = Msg
.Display
End If
End With

End Sub