Bonjour Steelson,
J'ai adapter ta macro en fonction et je rencontre deux petits problèmes; variables non définies et je pense qu'en rajoutant copie cachée, je n'emploie pas les bon termes.
Private Sub CommandButton1_Click()
PieceJointe = Environ("Temp") & "\" & " & TextBox4.value"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PieceJointe & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Destinataire = TextBox1.Value
copie cachée = TextBox2.Value
Sujet = TextBox3.Value
Texte = TextBox5.Value
MAIL = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
monCourriel = " -compose " & "to=" & Destinataire & "," & "cc =" & copie cachée & "," & "subject=" & Sujet & "," & "body=" & Texte & "," & "attachment=" & PieceJointe & ".pdf"
Shell MAIL & monCourriel, vbNormalFocus
'SendKeys "^{ENTER}", True 'Envoi automatique
SendKeys "^+{ENTER}", True 'Dossier Messages en attente
End Sub
Merci pour ton aide et bon dimanche