XL 2019 Macro pour envoyer un classeur en PDF par email

[Wartdogs]

Bonjour a tous,

J'ai trouvé une macro pour envoyer une feuille convertir en PDF, le soucis c'est que j'aimerai envoyer le classeur entier.
Public Sub CommandButton30_CLICK()
'Fonctionne sous excel 2000-2013
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
'Copie la feuille active comme nouvelle feuille
ActiveSheets.Copy
Set destwb = ActiveWorkbook

'D?sactiver fen?tre de compatibilit?
Application.DisplayAlerts = False
'----------------------------------------------------------------------------
'Sauvegarde la nouvelle feuille/L'envoie par mail/La supprime
'----------------------------------------------------------------------------
TempFilePath = Environ$("temp") & "\"
TempFileName = ActiveSheets.Name

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)

With destwb
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TempFilePath & TempFileName & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False ' sauvegarde du fichier au format pdf
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.bcc = ""
.Subject = "Relev? d'heure chantier"
.Attachments.Add TempFilePath & TempFileName & ".pdf"
.Body = ""
'.display 'ou alors utiliser
.Send 'pour envoi
End With
On Error GoTo 0
.Close savechanges:=False
End With
'Effacer le fichier envoy?
Kill TempFilePath & TempFileName & ".pdf"
Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Merci pour vos réponse et bonne santé a tous

Cordialement

 

[Pounet95]

Bonjour,
Pour créer un PDF avec toutes ou certaines feuilles d'un classeur voir dans ce PDF joint
Pour le code, peut-être un "petit coup" d'enregistreur ? Je n'ai pas fait pensant avoir compris que c'est la création avec toutes les feuilles qui posait problème.
PS : il y a un travail de mise en page à faire éventuellement avant.

 

[Staple1600]

Bonjour le fil, Wartsdog, Pounet95

[Juste pour info]
Si j'étais moi, j'aurions plutôt écrit
With OutMail
.To = "tatatiti@domain.fr"
.CC = ""
plutôt que...

With OutMail
.To = "arnaud********@****.fr" 
.CC = ""

Sauf si bien sûr, j'adore recevoir des spams dans ma messagerie

 

[Pounet95]

Bonjour Staple1600,
Et pour être certain, là aussi ( même s'il n'y a pas le FAI)

Attachments.Add TempFilePath & TempFileName & ".pdf"
.Body = "Bonjour, Ci-joint les relev?s d'heures chantier. cordialement arnaud brossard "
'.display 'ou alors utiliser