Enregistrement pdf + mail avec un bouton

Bonjour,

J’éprouve des difficultés à faire ce que je souhaite en VBA et je pense que vous pourrez m'aider facilement.

Je souhaite créer un bouton qui enregistre ma page active en pdf à un endroit précis et qui génère un mail avec la pièce jointe.

Je suis arrivé à générer le mail mais la page active ne s'enregistre jamais en pdf et je ne sais plus quoi faire.

Voici ce que j'ai saisi:

Sub Mail_Outlook_fichier_PDF()

Dim OutApp As Object

Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

chemin = "C:\Users\romai\"

Fichier = "BL.pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Fichier, Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

From:=1, To:=1, OpenAfterPublish:=False

With OutMail

.To = Sheets("BL").Range("D11")

.CC = "xxxx.yyyy@zzzz.com"

.BCC = ""

.Subject = "Bon de livraison n° " & Sheets("BL").Range("B3") & " " & Sheets("BL").Range("C1") & " " & "du " & Sheets("BL").Range("E13")

.Body = Sheets("Mail").Range("A1")

.Attachments.Add (chemin & Fichier)

.display

End With

Set OutMail = Nothing

Set OutApp = Nothing

Kill chemin & Fichier

End Sub

Sub Sauvegarde_pdf()

Dim Fichier As String, NomF As String

NomF = Sheets("BL").Range("C1").Value

Fichier = NomF & ".pdf"

Application.DisplayAlerts = False

ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\romai\Documents\Archives BL\"

Application.DisplayAlerts = True

End Sub

Quelqu'un aurait-il une idée de mon soucis ?

Voici le fichier en question.