Envoyer feuille excel + macros

[giova1981]

Bonjour

J'ai crée un bouton "envoyer" avec le code suivant :

Sub Mail()

Dim Maille As String
Dim Sujet As String

Maille = Range("c15").Value
Sujet = "Non Conformity Report *** " & Range("c20").Value

ThisWorkbook.SendMail Maille, Sujet
MsgBox "Your Non Conformity report has been sent"
End Sub

J'aimerai que lorsque mon contact a répondu à la feuille, qu'il puisse me la renvoyer en cliquant lui aussi mais les macros ne s'envoient pas.

comment pourrais je faire?

Merci
Giovanni

 

[Hulk]

Re : Envoyer feuille excel + macros

Hello,

Etrange, chez moi ça joue.

Je pense que le code est dans un module ? Si oui, essaie en mettant le code directement dans le bouton de la feuille.

Private Sub CommandButton1_Click()

Dim Maille As String
Dim Sujet As String

Maille = Range("c15").Value
Sujet = "Non Conformity Report *** " & Range("c20").Value

ThisWorkbook.SendMail Maille, Sujet
MsgBox "Your Non Conformity report has been sent"

End Sub

EDIT : Précision : Un bouton de la boîte à outils de contrôles !

 

[giova1981]

Re : Envoyer feuille excel + macros

Merci pour ta réponse rapide Hulk!
Mais comment créer un bouton de la boîte à outils de contrôles dans l'excel 2007?

Merci

 

[giova1981]

Re : Envoyer feuille excel + macros

Hello Hulk

C'est bon j'ai trouvé dans le Visual Basic.
Comment dois je l'intégrer dans ma feuille excel?

Merci
giovanni

 

[Hulk]

Re : Envoyer feuille excel + macros

Re,

Procède de cette façon :

1) Sur ta feuille, tu cliques sur "Affichage/Barres d'outils/Boîte à outils Contrôles.

2) Double-clique sur le bouton et là, la fenêtre VBA s'ouvre avec le Private Sub du bouton.

3) Colle le code dans le bouton.

Mais pas sûr que ça soit ça, étant donné que chez moi ton code fonctionne...

Note que je travaille avec Excel 2003, mais je ne pense pas non plus que ça soit à cause de ça.