Comment envoyer une seule feuille en PJ [Fermé]

Signaler
Messages postés
4
Date d'inscription
vendredi 2 mars 2018
Statut
Membre
Dernière intervention
2 mai 2018
-
Messages postés
15519
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2021
-
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 & _

"" & vbNewLine & _

"The Intercurrency Multipayment Service team."

.ActiveSheet.Copy

.ActiveSheet.Add Feuil1



.DISPLAY



End With

On Error GoTo 0



Set OutMail = Nothing

Set OutApp = Nothing

quelqu un pourraient m aider vp
A voir également:

1 réponse

Messages postés
15519
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2021
1 434