Transformer en pdf et envoyer pj

Bonjour le destinataire est bien sélectionné et l'envoie du mail s'effectue mais je n'arrive pas à transformer le fichier en Pdf et envoyer en PJ, auriez-vous le code correspondant

Et dsl une précision j'ai essayé avec attachments.add mais je ne veux qu'il se réfère à une source pour envoyer la PJ

Merci pour votre aide

Bonjour,

Il faudra bien se référer à un fichier existant, sinon l'envoi pourrait être compromis.

Au cas où, c'est bien la zone d'impression d'une feuille qui doit être transformée en pdf et pas le fichier en entier ? Voici le code normalement pour le pdf

Dossier = thisworkbook.path & "\" 'adapter avec le répertoire souhaité
Fichier = "Monfichier.pdf"
CheminPDF = Dossier & Fichier
Activesheet.exportasfixedformat type:=xltypepdf, filename:=CheminPDF, ignoreprintareas:=false 'pour la feuille active,sinon adapter avec la feuille visée

et le code pour le joindre :

'with votreemail
'.....
.attachments.add CheminPDF

Cordialement,