Discussion :

[operaq]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lowno]

Salut operaq,

J'aurais tenté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[operaq]

ça fonctionne nickel!

merci