Envoyer le Pdf enregister par mail

Bonjour, j'ai actuellement un VBA qui enregistre en PDF.

Sub Enregistrer_en_pdf()

'

' Enregistrer_en_pdf Macro

'

Application.CutCopyMode = False

ChDir "C:\Users\chabriais\Desktop\PDF EXCEL PARC"

ActiveSheet.PageSetup.PrintArea = "$C$1:$M$48"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

[I2].Value, Quality:= _

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

OpenAfterPublish:=False

End Sub

Je voudrais l’améliorer pour qu'il:

• enregistre l'excel en PDF (ça c’est fait : D)
• Qu'il envoie un mail au responsable du matériel. Avec en plus le message suivant si possible" bonjour, voici la dernière intervention qui a été mener sur le matériel dont vous êtes responsable. Cordialement, service métrologie"

Pour info: mon excel sert à suivre le bon fonctionnement des matériels. J'utilise "Mozilla Thunderdird" pour envoyer des mails.

Je vous envois en fichier joint mon Excel "épurer".

Nécessitez par a me communiquer vous idées

Bonjour,

Comme ceci, est ce que cela fonctionnerai ? (avec l'adresse mail en I11 sur la feuille active)

Sub envoi_mail()

Dim destinataire, sujet, fichierjoint As String

destinataire = [I11]
sujet = "Intervention matériel"

 body = "bonjour," & Chr(10) & Chr(10) & _
        "voici la dernière intervention qui a été mener sur le matériel dont vous êtes responsable." & Chr(10) & Chr(10) & _
        "Cordialement, service métrologie"
fichierjoint = "C:\Users\chabriais\Desktop\PDF EXCEL PARC.pdf"

strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand

Call Shell(strcommand, vbNormalFocus)

End Sub

A plus

Bonjour ,

malheureusement ça ne marche pas . le programme ne permet pas d'aller chercher le responsable du matériel et son adresse mail associer pour lui envoyer un émail.

Ça semble plus compliqué que je le pensée...