Code pour envoi par mail mais changer nom fichier envoyé (Résolu)

Sub Sauvegarde()
Dim fichier As String

'fichier = "C:\Cougar\" &  Sheets("Feuil1").Range("g2")
fichier = ThisWorkbook.Path & "\" & Sheets("Feuil1").Range("g2")    'si dans le même dossier

'xlOpenXMLWorkbookMacroEnabled = .xlsm / xlOpenXMLWorkbook = .xlsx / xlExcel8 = .xls
ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Sheets("Feuil1").DrawingObjects.Delete
End Sub
 
'------------------------------------------------------
.Attachments.Add Chemin & Nom, si c'est avec outlook.

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