Bonjour à tous !

Je débute en VBA et je voudrais envoyer par mail un onglet de mon classeur Excel. Cela est-il possible ?

Pour le moment, j'ai constitué un code qui me permet d'envoyer en PJ le classeur en entier et de nommer la PJ suivant mon "thisworkbook.name".

Code ci-dessous :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Envoi()
 
Dim MonOutlook As Object
Dim MonMessage As Object
 
ThisWorkbook.Sheets("feuil1").Select
 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
MonMessage.To = ""
MonMessage.Cc = ""
MonMessage.Subject = ""
MonMessage.body = "
MonMessage.Attachments.Add ActiveWorkbook.Path & "\" & ThisWorkbook.Name
MonMessage.display
 
Set MonOutlook = Nothing
 
End Sub

Merci de me donner un petit coup de pouce car je reste bloqué

Cordialement,