Bonjour,
voici un exemple pour envoyer la feuille active,
Sub Test_Mail_Outlook()
'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
chemin = Environ(10) & "\Documents" 'à adapter
fichier = "Rapport Sem " & Range("A2") & ".pdf" 'à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
With OutMail
.To = "destinataire@blabla.com" 'à adapter
.CC = ""
.BCC = ""
.Subject = "Le sujet"
.Body = "Hello!"
.Attachments.Add (chemin & fichier)
' .Display
.send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Kill chemin & fichier
End Sub