Bonjour,

Le code ne fonctionne pas, peut-on me venir en aide.

merci

Sub editPDFMail()
'
' editPDFMail Macro
'

'
    ' creation pdf
    Range("A1:AB49").Select
    Range("AB49").Activate
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "CBBResultats.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Range("A6").Select
   ' ouverture messagerie mozilla

    strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird -compose to='thierry@xxx.com',subject='Résultats',body='Veuillez trouver ci-joint',attachment='CBBResultats.pdf'"
  
    Call Shell(strcommand, vbNormalFocus)

End Sub