VBA envoie email avec tableau recap + piece jointe + plusieurs destinataire

Bonjour à tous,

Je suis devant un problème...

J'ai une macro qui me permet d'envoyer un e-mail contenant :

- un tableau récapitulatif (sélection de cellules sur un fichier excel).

La macro est assez simple, mais je dois ajouter mes pièce jointe manuellement.

Quel est la modification que je dois apporter pour que ma pièce jointe se rajoute automatiquement (le lien se trouve dans une cellule: A17).

Voici mon code actuel que j'envoie par destinataire:

Sub ENVOIE_EMAIL()
'
' ENVOIE_EMAIL Macro
'

'
 Sheets("PILOT MAIL").Select

ActiveSheet.Range("G1:K9").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = Range("G19").Value 'le texte
   ' .Adresse d'envoie 
    .Item.Subject = Range("G1").Value
    .Item.Display
End With

End Sub

Un très grand merci pour votre aide!!!

Hello,

à tester :

Sub ENVOIE_EMAIL()
'
' ENVOIE_EMAIL Macro
'

'
 Sheets("PILOT MAIL").Select

ActiveSheet.Range("G1:K9").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = Range("G19").Value 'le texte
   ' .Adresse d'envoie 
      .Item.Attachments.Add "C:\Users\xxx\Monfichierxl.xlsx"
    .Item.Subject = Range("G1").Value
    .Item.Display
End With

End Sub

R@g

Bonjour,

En effet, votre solution fonctionne mais le lien doit être pris dans la cellule (A17) car le fichier change tout les jours de nom ( en fonction de la date).

Merci beaucoup

Hello,

Sub ENVOIE_EMAIL()
'
' ENVOIE_EMAIL Macro
'

'
 Sheets("PILOT MAIL").Select

ActiveSheet.Range("G1:K9").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = Range("G19").Value 'le texte
   ' .Adresse d'envoie 
      .Item.Attachments.Add ActiveSheet.Range("A17").value
    .Item.Subject = Range("G1").Value
    .Item.Display
End With

End Sub

R@g

Merci infiniment!!!

Rechercher des sujets similaires à "vba envoie email tableau recap piece jointe destinataire"