Envoie mail avec classeur actif

Bonjour à tous,

J'ai pas mal cherché sur le net, je trouve des réponses qui s'y rapprochent mais je ne parviens pas à réaliser le code que je veux.

J'aimerai tout simplement envoyer un mail à différentes personnes, avec corps et texte et surtout avec en pièce jointe le classeur actif.

Enfin, j'aimerai utiliser la fonction display pour avoir le temps de checker que tout va bien.

J'ai récupéré ce code sur le forum mais je n'arrive pas à l'adapter à mon problème.

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
   'Exemple pour envoyer un classeur en pièce jointe
 Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm") 
   If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
   'Ou bien entrer le path et nom du fichier autrement
   'Nom_Fichier = "C:\Chemin\NomFichier.ext"'
    'If Nom_Fichier = "" Then Exit Sub'
'---------------------------------------------------------
     With oBjMail
        .To = "XXXi@hotmail.fr ; YYY@hotmail.fr"  ' le destinataire'
        .CC = "" '
       .Subject = "" & Mid(ActiveWorkbook.Name, 1, 59)      ' l'objet du mail'
       .Body = "Good morning," & vbCrLf & vbLf & "Please find attached the XXXX. " & vbCrLf & vbLf & "Have a nice day " & vbCrLf & "Best regards"   'le corps du mail ..son contenu'

       ActiveWorkbook.Save
       .Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
       .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
       '.Send'
    End With
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub

Nom_Fichier renvoie à un fichier que je dois sélectionner dans mon ordinateur alors que j'aimerai que celui-ci soit directement le classeur actif car j'ai bien modifié le sujet de mon mail en reprenant le nom du classeur actif.

Je sais aussi qu'il existe une fonction activeworkbook.sendmail mais il y a des informations que je ne peux pas ajouter dans mon mail.

J'espère avoir été clair et je remercie d'avance ceux qui auront la gentillesse de jeter un œil à mon problème.

Bonne journée.

Bonjour,

La macro montrée utilise déjà le .Display, alors 1er probleme résolu,

pour envoyé le classeur actif

remplacer

.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier

par

.Attachments.Add ActiveWorkbook.FullName

Bonjour,

Je m'excuse je n'ai pas pu répondre avant.

Je te remercie, c'est parfait.

Bonne journée !