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!!!