Activesheet en pièce jointe

[lerexcel]

Bonjour,

J'ai lu un peu partout des codes pouvant joindre des pièces fonctionnant plus ou moins bien mais tous un peu dur à appréhender. Je pense pouvoir apporter un petit plus en délivrant un code un peu simplifé...

Private Sub CommandButton3_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim sujet As String
Dim newb As Workbook

ActiveSheet.Copy
Set newb = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NomPièceJointe.xls"

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo 0
With OutMail

.To = ""
.CC = ""
.BCC = ""
.Subject = sujet
.Body = ""
.Attachments.Add newb.FullName
.display

End With
ActiveWorkbook.Close
Kill ThisWorkbook.Path & "\NomPièceJointe.xls"

End Sub

 

[lerexcel]

Re : Activesheet en pièce jointe

La variable 'sujet' étant un exemple....