XL 2013 Macro pour envoyer un classeur (et non une seule feuille) par email

Dim Fichier As String

'Si les classeurs sont dans le même dossier
Fichier = ThisWorkbook.Path & "\Classeur à envoyer.xls"

'Sinon
Fichier = "C:\Users\YML\Mes Documents\Classeur à envoyer.xls"

.AttachementsAdd Fichier

Sub ENVOYER_EMAIL()

Dim NouveauClasseur As Workbook
Dim Destinataire As String
Destinataire = "xxx@xxxx.com"
Dim Objetmessage As String
Objetmessage = "xxxx"

'On se place sur la feuille principale
Sheets("ANALYSE CA").Select

'On enregistre le classeur
ActiveWorkbook.Save


Application.ScreenUpdating = False


Dim Fichier As String

'Si les classeurs sont dans le même dossier
Fichier = ThisWorkbook.Path & "\Tableau Analyse CA.xlsm"

Set NouveauClasseur = ActiveWorkbook
NouveauClasseur.SaveAs Objetmessage

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Destinataire
myItem.Subject = Objetmessage
myItem.Body = "Bonjour, voici le tableau analyse CA" 'fichier en cours d'utilisation envoyé en attaché:
myItem.attachments.Add Fichier
myItem.Send
Set ol = Nothing

Application.DisplayAlerts = False
With NouveauClasseur
.ChangeFileAccess xlReadOnly
Kill .FullName
Application.DisplayAlerts = True
.Close False

'Fermer Excel
Application.Quit


End With
End Sub

Option Explicit

'Activer la référence Outlook xx.0 Object Library

Sub Envoi_Mail()
Dim PremAdresse, Sujet, CrMessage, Chemin, Fichier As String
Dim OlApp As Outlook.Application
Dim OlMail As MailItem

With Feuil1
PremAdresse = .Range("a2")
Sujet = .Range("b2")
CrMessage = .Range("c2")
Fichier = .Range("d2")
End With

Chemin = ThisWorkbook.Path & "\"

Set OlApp = CreateObject("Outlook.Application")
Set OlMail = OlApp.CreateItem(olMailItem)
 With OlMail
      .To = Premadresse
      .Subject = Sujet
      .Body = CrMessage
      .Attachments.Add Chemin & Fichier
      .Display
   End With
    Set OlMail = Nothing
    Set OlApp = Nothing
End Sub

Dim Fessier As String

Option Explicit
Sub Fichier_actif_mail()
' référence "Microsoft Office xxxx Object Library" activer
    Dim appoutlook As Outlook.Application
    Dim message As Outlook.mailitem
    Dim myrecipient As Object
    Set appoutlook = CreateObject("outlook.application")
    Set message = appoutlook.createitem(olmailitem)
    With message
        .Subject = "Macro pour envoyer ce fichier (et non une seule feuille) par email"
        .body = "Bonjour," & Chr(10) & Chr(10) & "Valeurs à la date du " & Date & Chr(10) & Chr(10) & "Cordialement."
        .bodyformat = olformatHTML
        .Recipients.Add ("toto@live.fr") ' adresse adapter
        .attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
        .send
    End With
    appoutlook.Quit
    Set appoutlook = Nothing
End Sub