Envoi fichier PDF PAR MAIL EN VBA

Bonjour le forum

Je cherche si cela est possible de générer via une macro ,de convertir un onglet Excel en Format pdf , et envoi toujours avec une Macro Par mail

Je suis preneuse si quelqu'un peux m'aider sur le sujet

Vous remerciant a toute et tous par avance pour votre aide sur ce sujet

Cordialement

Nathalie

Bonjour,

à tester,

Sub envoiMail()
fichier = "C:\Users\xxxxx\Documents\MonFichier PDF.pdf" 'à adapter

Set sh = ActiveSheet
Application.ScreenUpdating = False

sh.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=fichier, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Sheets.Add After:=Sheets(Sheets.Count)

    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
        For cp = .Item.Attachments.Count To 1 Step -1
        .Item.Attachments(cp).Delete
        Next cp
    .Item.To = "xxxxxx@xxxxxxx"
    .Item.Subject = "Test "
    .Introduction = "Bonjour, ci-dessous un test VBA."
    .Item.Attachments.Add fichier
    .Item.Send
    End With

Application.DisplayAlerts = False
ActiveSheet.Delete
sh.Activate
Application.ScreenUpdating = True
End Sub

Bonjour SabV,

Je donne ici une autre version testée sous 2016.

Toutefois je ne suis pas persuadé que ça va fonctionner sur le serveur de NATH... A tester !

A+