Envoi mail avec sujet modifiable

Bonjour,

J'utilise une macro qui fonctionne parfaitement afin d'envoyer; via un bouton, un tableau à une adresse mail prédéfini. Mais mon souhait serait de rendre le sujet facilement modifiable, ainsi comment donner à la mention "Subject" la valeur d'une cellule ?

Code:

---

1 2 3 4 5

Private Sub CommandButton3_Click() Workbooks("Fact.xls").SendMail Recipients:="****@*****com", _ Subject:="Fiche", _ ReturnReceipt:=True End Sub

---

Salut operaq,

J'aurais tenté :

Code:

---

1 2 3 4 5

Private Sub CommandButton3_Click() Workbooks("Fact.xls").SendMail Recipients:="****@*****com", _ Subject:=sheets("feuil1").range("a1").value, _ ' a définir ReturnReceipt:=True End Sub

---

A tester :)

:ccool: ça fonctionne nickel!

merci