Salut tt le monde
actuellement je cherche un macro pour envoyer la feuille active d un classeur en PJ via outlook
j ai bqp tenté mais je trouve pas la bonne formule VBA, ci apres ce qui j'ai trouvé mais ca marche pas
Sub MSGENFR()
ActiveWorkbook.SaveAs Range("B9")
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.Body = "Bonjour," & vbNewLine & _
"" & vbNewLine & _
"Vous trouverez ci-joint la confirmation de traitement du fichier " + Range("b9") & vbNewLine & _
"" & vbNewLine & _
"En espérant le tout à votre entière satisfaction, n'hésitez pas à communiquer avec nous pour toute information supplémentaire." & vbNewLine & _
"" & vbNewLine & _
"L'équipe du Service de multipaiement interdevises." & vbNewLine & _
