VBA excel, générer un mail avec comme piéce jointe un feuille d'un fichier xls

[Aimedija]

Bonjour,

je débute à coder sur VBA excel et j'ai pu récupérer le code ci-dessous afin d'envoyer des fichiers en pièces jointes. Seriez vous à même de m'aider à modifier ce code afin qu'il envois uniquement une feuille désigner d'un fichier xls? Un grand merci d'avance

Sub SendEMailwithAttachments()

Dim ol As Object, myItem As Object

Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)

myItem.To = "Toto@toto.com"
myItem.Subject = "Test Mail"
myItem.Body = "Hello Word." & Chr(13) & Chr(13) & "Bye All"

Set myAttachments = myItem.Attachments
myAttachments.Add "C:\mes documents\Toto1.xls"

MsgBox "Now sending to " & myItem.To
myItem.Send
Set ol = Nothing

End Sub

 

[Staple1600]

Re

@Lone-wolf
Ah bon?
Cela ne fait ce que demande le titre de la discussion ?

 

[Lone-wolf]

Bonjour Jean Marie, Aimedija, le Forum

@Staple1600 : t'arrête oubien