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
Merci d'avance.
@+
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
VB:
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 SubMerci d'avance.
@+