Sub SendOutLook()
Dim pdf, feuille As Worksheet, plage As Range, Rnge As Object, Wdoc As Object
pdf = ThisWorkbook.Path & "\Invitation.pdf"
If Dir(pdf) <> "" Then Kill pdf
Set feuille = Feuil1
Set plage = Feuil1.[A1:F19]
'si tu veux envoyer toute la feille
'feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'si tu veux envoyer seulement un plage de cellules
plage.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
With CreateObject("outlook.application")
With .CreateItem(0)
.To = "quelqun@mailou..com"
.Subject = "invittion " & Date
.BodyFormat = 1
'on colle la plage de cellule dans le corps du mail
.display
plage.Copy
Set Wdoc = .GetInspector.WordEditor
Set Rng = Wdoc.Content
Rng.Paste
.Attachments.Add (pdf)
If Dir(pdf) <> "" Then Kill pdf
'.send
'.Close False
End With
End With
Application.CutCopyMode = False
End Sub