Envoyer une feuille de mon classeur par mail en pièce jointe

[will169]

Bonjour,

J'aimerai avoir un coup de main pour mon problème. J'ai plusieurs feuilles dans mon classeur et j'aimerai mettre en pièce jointe une de ces feuilles. J'ai un code VBA qui m'envoie le classeur entier et je n'arrive pas à le modifier pour envoyer q'une seul feuille.
Voici le code en question:

Sub CDO_Mail_Small_Text_2()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Dim Fichier As String
Dim SourceWb As Workbook

Set SourceWb = ActiveWorkbook
Fichier = ThisWorkbook.Path & Application.PathSeparator & "j1.xls"

SourceWb.SaveCopyAs Fichier
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("") = True
.Item("") = 1
.Item("") = "xxxxxxxxxxxxxx@gmail.com"
.Item("") = "xxxxxx"
.Item("") = "smtp.gmail.com"

.Item("") = 2
.Item("") = 465
.Update
End With

strbody = "Bonjour, Voici la prochaine journée a compléter avant Vendredi 18h. Merci!"

With iMsg
Set .Configuration = iConf
.To = "xxxxxxxxxxxx@gmail.com"
.CC = ""
.BCC = ""
' Note: The reply address is not working if you use this Gmail example
' It will use your Gmail address automatic. But you can add this line
' to change the reply address .ReplyTo = "Reply@something.nl"
.From = """Pronos"" <xxxxxxxxxxxxxxxx@gmail.com>"
.Subject = "Journée 1"
.TextBody = strbody
.AddAttachment Fichier
.Send



End With
End Sub

S'il vous plait çà fait plusieurs jours que je bloque dessus. Merci d'avance

 

[DoubleZero]

Bonjour à toutes et à tous,

Bienvenue sur XLD, will169.

Une solution, peut-être, ici.

A bientôt