XL 2019 Double attachement dans mail

[YAP32]

Bonjour à tous,

J'essaie d'envoyer un mail à partir de ma feuille "devis" dont le corps du mail est ma feuille elle-même et en plus la plage spécifique Range("B1:F46") en attachement en "PDF" mais chaque fois que je refais un nouveau envoi dans le nouveau mail l'ancien "PDF" se rajoute. Comment l'exlure l'ancien PDF du nouveau.

Voici le code

Sub EnvoiMailDevis()

Application.ScreenUpdating = False

Dim MaFeuille As Worksheet
Dim NbLigne As Integer
Dim DevisRng As Range
Dim MonFichier As String

Set DevisRng = ThisWorkbook.Sheets("DEVIS").Range("B1:F46")
Set MaFeuille = ThisWorkbook.Sheets("DEVIS")

MonFichier = ThisWorkbook.Path & "\DEVIS.pdf"

Application.ScreenUpdating = False

DevisRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MaFeuille.Range("B1:F46").Select

ActiveWorkbook.EnvelopeVisible = True

With MaFeuille.MailEnvelope.Item
    .To = MaFeuille.Range("F11").Value
    .Subject = MaFeuille.Range("E1").Value
    .Attachments.Add MonFichier
    .send
End With

Kill MonFichier

MsgBox "Mail envoyé"

End Sub

Merci d'avance.

@+

 

[fanch55]

Bonjour,
Code à mettre avant l'ajout du fichier :

    Do While .Attachments.Count > 0
        .Attachments.Remove 1
    Loop
    .Attachments.Add MonFichier

 

[YAP32]

Bonjour,
Code à mettre avant l'ajout du fichier :

    Do While .Attachments.Count > 0
        .Attachments.Remove 1
    Loop
    .Attachments.Add MonFichier

Merci c'est nickel!