Bonjour Le Forum,
J'aurai besoin de votre aide svp.
Je bloque sur la dernière étape d'une macro....
J'ai trouvé un code qui me permet d'envoyer un mail via Excel avec l'image de mon onglet dans le corps de mon mail, le fichier et une PJ que je peux selectionner au choix en attachement du même mail.
Jusque là tout va bien, la macro fonctionne via mon bouton, le mail part et tout y est.
Le problème c'est que plus j'utilise le bouton sans enregistrer ou quitter le fichier plus la macro me cumule de PJ dans l'envoi de mes mails.
Du coup, sachant que j'ai 2 PJ à chaque envoi, si j'envoie 10 mails, je vais avoir 20 PJ au au dixième email au lieu de 2.
Je souhaiterai insérer une ligne de code dans cette macro pour la "mette à jour" après chaque envoi mais je sèche.
Pourriez-vous m'aider svp ? (J'espère avoir été clair...)
Par avance merci!!
Le macro en question :
Private Sub envoi_mail_PJ_image ()
fileToOpen = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
ActiveSheet.Range("B2:M29").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "xxxxxxxxx"
.Item.to = "xxxx.xxx@xxx.com"
.Item.CC = "xxxxxxxx"
.Item.Attachments.Add ActiveWorkbook.FullName
.Item.Attachments.Add fileToOpen
.Item.Subject = "xxxxxxxxxxx"
.Item.Send
End With
MsgBox "xxxxxxx"
End Sub
J'aurai besoin de votre aide svp.
Je bloque sur la dernière étape d'une macro....
J'ai trouvé un code qui me permet d'envoyer un mail via Excel avec l'image de mon onglet dans le corps de mon mail, le fichier et une PJ que je peux selectionner au choix en attachement du même mail.
Jusque là tout va bien, la macro fonctionne via mon bouton, le mail part et tout y est.
Le problème c'est que plus j'utilise le bouton sans enregistrer ou quitter le fichier plus la macro me cumule de PJ dans l'envoi de mes mails.
Du coup, sachant que j'ai 2 PJ à chaque envoi, si j'envoie 10 mails, je vais avoir 20 PJ au au dixième email au lieu de 2.
Je souhaiterai insérer une ligne de code dans cette macro pour la "mette à jour" après chaque envoi mais je sèche.
Pourriez-vous m'aider svp ? (J'espère avoir été clair...)
Par avance merci!!
Le macro en question :
Private Sub envoi_mail_PJ_image ()
fileToOpen = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
ActiveSheet.Range("B2:M29").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "xxxxxxxxx"
.Item.to = "xxxx.xxx@xxx.com"
.Item.CC = "xxxxxxxx"
.Item.Attachments.Add ActiveWorkbook.FullName
.Item.Attachments.Add fileToOpen
.Item.Subject = "xxxxxxxxxxx"
.Item.Send
End With
MsgBox "xxxxxxx"
End Sub