Sub Envoi_Mail()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim StrBody As String
Dim fichier, nom As String
'Activer Référence Microsoft Outlook 14.0 Object Library
nom = Sheets("Feuil1").Range("g2") & ".xlsx"
'fichier = "C:\Cougar\" & nom
fichier = ThisWorkbook.Path & "\" & nom 'si dans le même dossier
'xlOpenXMLWorkbookMacroEnabled = .xlsm / xlOpenXMLWorkbook = .xlsx / xlExcel8 = .xls
ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Sheets("Feuil1").DrawingObjects.Delete
Application.Wait (Now + TimeValue("00:00:01"))
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)
StrBody = "Bonjour Monsieur," & vbCrLf & "Vous avez un nouveau message !"
With olMail
.To = ""
.CC = ""
.Subject = "Message rappel"
.Body = StrBody
.Attachments.Add fichier
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub