Les PDF arrivent tronqués chez certains destinataires

[PFRANCO]

Bonjour à tous,

J'utilise le code suivant pour éditer automatiquement une feuille Excel enPDF avant expédition. Je n'arrive pas à comprendre pourquoi certains destinataires reçoivent le PDF tronqué en partie.
Qu'ils aient OUTLOOK ou non le phénomène se produit.
Pourrait-il s'agir d'un paramétrage d'ADOBE ?

J'ai effectué plusieurs recherches sans résultat

Si vous avez une piste , je vous remercie

Dim messageHTML
    On Error GoTo errorHandler
    'on cré le fichier PDFdans le même dossier que le fichier source
    Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
    ActiveWorkbook.Path & "\" & "Feuil1.PDF"

    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = "Relevé horaire"  'A modifier
    objMessage.From = "philippe-franco@wanadoo.fr" 'adresse mail de l'expéditeur n'est pas obligatoire
    objMessage.To = "philippe-franco@wanadoo.fr" 'Email du destinataire doit-être correct ici
    objMessage.TextBody = "Bonjour," & vbCrLf & "Veuillez trouver en piéce jointe votre facture" & vbCrLf & "en votre aimable réglement" ' A modifier
    piece_jointe = ActiveWorkbook.Path & "\" & "Feuil1.PDF"
    messageHTML = "Ceci est un message en HTML"

    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"  'A changer
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objMessage.Configuration.Fields.Update

    objMessage.AddAttachment (piece_jointe) 'On ajoute la piéce jointe, il est possible d'envoyer plusieurs pièces
    'objMessage.AddAttachment (piece_bis) 'dans ce cas on ajoute un objMessage.AddAttachement () par pièce
    objMessage.Send
    MsgBox "Le mail a été bien envoyé !"
    'la feuille PDF créée est est supprimée après l'envoi
    Kill ActiveWorkbook.Path & "\" & "Feuil1.PDF"
    'si erreur on sort de la procédure
    Exit Sub
errorHandler:
    'description de l'erreur survenue
    MsgBox Err.Description