Problème rencontré dans l'envoi du contenu d'une feuille dans un mail VBA

Bonjour,

Je viens vers vous concernant un soucis que je rencontre dans l'édition d'une macro.

Le but recherché est d'envoyer un mail avec le contenu d'une feuille Excel. Dans le classeur excel en question il y a plusieurs autres feuilles correspondant à l'analyse et je souhaiterais recevoir uniquement la dernière feuille de conclusion.

Dans la dernière feuille à envoyer, la taille de selection peut varier en fonction du résultat de l'analyse.

Après exécution, le message d'erreur suivant apparaît : "La méthode 'MailEnvelope' de l'objet "_Worksheet' à échoué".

Pour ce faire, j'ai effectué le code suivant :

Sub EnvoiMail_Test()

Dim MaFeuille As Worksheet
Dim NbLigne As Integer

Set MaFeuille = ThisWorkbook.Sheets("Envoi")
'Application.ScreenUpdating = False
NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A1:G" & NbLigne).Select

With Selection.Parent.MailEnvelope.Item
.To = "xxxx@gmail.com"
.Subject = "Opportunités"
.Body = "Ok"
'.Attachments.Add "C:\Users\Axel\Desktop\Radar.xlsm"
.Display
'.Send

End With

'Application.ScreenUpdating = True
End Sub

Est-ce que quelqu'un aurait une idée de la source du problème ?

En vous remerciant par avance du temps de recherche pour votre aide,

Axel

Bonjour,

Je cherche avec espoir une solution à ce problème.

En regardant des tutos et des cours ciblés, le code semble correct. J'ai bien activé Microsoft Outlook Library. Peut-être est-ce une autre référence qu'il faut activer ?

En vous remerciant par avance,

Axel