Sub SendWithAtt()
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
' "C:\Users\Thierry\AppData\Local\Temp\MaFeuille.pdf "
CurFile = ThisWorkbook.Path & "\" & "Plan d'action.Pdf"
ActiveSheet.AutoFilterMode = False
Range("A4", Cells(Rows.Count, 14).End(xlUp)).AutoFilter
Range("A4", Cells(Rows.Count, 14).End(xlUp)).AutoFilter 14, Criteria1:="="
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "Eyup Kose <ekose@fr.gestamp.com>; Hassan Hdiddioui <hhdiddioui@fr.gestamp.com>; Alain Okei <aokei@fr.gestamp.com>; Abdelkrim Laaraj <alaaraj@fr.gestamp.com>; Christophe Salomon <csalomon@fr.gestamp.com>; Gregorio Medina <gmedina@fr.gestamp.com>; Nicolas Seynhaeve <nseynhaeve@fr.gestamp.com>;Nassar Sellam <nsellam@fr.gestamp.com>; Tony Le Bassard <tlebassard@fr.gestamp.com>; Fabien Zoccola <fzoccola@fr.gestamp.com>; Rabia Derradji <rlarange@fr.gestamp.com>"
.CC = ""
.Subject = "Plan d'action"
.Body = ""
.Attachments.Add CurFile
'.Attachments.Add "c:\My Documents\book.doc"
.Display '.Send
End With
' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub
