Macro_Email ne joint pas de PDF

Bonjour à tous,

Je ne comprends pas pourquoi le PDF que j'ai créé ne veux pas se mettre en pièce jointe de mon Email avec le code ci-dessous ?

 

Sub Imprimé_mail_auto()

Dim OutApp As Object
Dim OutMail As Object

ActiveSheet.Select
'selectionner la feuille

If MsgBox("Est ce que le transport à été chiffré ? ", vbYesNo + vbExclamation, "Attention") = vbYes Then
' boite de dialogue Si oui continuer Si non on s'arrête

    Range("AG15").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Copier sans tenir compte de la formule pour le Numéros de devis

    ActiveWorkbook.SaveAs "\\C:\Users\vlafond\Desktop\Offres\Offres" & Range("ag15") & "__" & Range("G9") & "__" & Range("g22")
    'Enregistrée une copie excel

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\C:\Users\vlafond\Desktop\Offres\Offres" & Range("ag15") & "__" & Range("G9") & "__" & Range("g22"), Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    On Error Resume Next
    With OutMail
    'Config mail

    .To = Range("g21")
    ' Desinataire du mail

    .CC = "personne1" & ";" & "personne2" & ";" & Range("z21")
    ' Personne en copie du mail

    .Subject = "ENTREPRISE // SERVICE : " & Range("k18")
    ' Objet mail

    .Attachments.Add "\\C:\Users\vlafond\Desktop\Offres\Offres" & Range("ag15") & "__" & Range("G9") & "__" & Range("g22") & ".pdf"
    'attacher le PDF en fichier joint

    .ActiveWorkbook.FullName
    .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

Merci d'avance

Bonjour,

Ton pdf est-il bien enregistré ?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\C:\Users\vlafond\Desktop\Offres\Offres" & Range("ag15") & "__" & Range("G9") & "__" & Range("g22")&".pdf", Quality:= _

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

OpenAfterPublish:=False