Envoie d'email via l'adresse mail inscrite dans la cellule

Bonjour à tous,

J'ai un petit soucis sur un programme que voici :

Sub envoiClasseur()

Dim Fichier As Variant

'Identification d'Outlook comme client de messagerie"

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.application")

Set MonMessage = MaMessagerie.CreateItem(0)

'Destinataires du mail'

MonMessage.to = Range("M7") <------------ (c'est à ce niveau )

'identification du fichier ouvert à envoyer'

MonMessage.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

'Sujet du mail'

MonMessage = "Test envoi message"

'Corps du mail'

'Chr(10) & Chr(13)= saut de ligne"

contenu = "Bonjour,"

contenu = contenu & Chr(10) & Chr(13)

'Chr indiquent des sauts de lignes'

contenu = contenu & "Veuillez trouver en PJ le rapport d'activité" & Chr(10) & Chr(13)

contenu = contenu & "Cordialement" & Chr(10) & Chr(13)

contenu = contenu & " "

MonMessage.body = contenu

'envoi du message'

MonMessage.send

'réinitalisation de la messagerie'

Set MaMessagerie = Nothing

'Boite de dialogue"

MsgBox "Votre message a bien été envoyé"

End Sub

Le but de ce programme est d'envoyer un mail en appuyant sur un bouton une fois que j'ai fini le rapport que je doit remplir quotidiennement. (gain de temps pour l'envoyer à mon responsable)

J'aimerais sélectionner l'adresse mail du destinataire que j'ai inscrite dans la cellule sur excel (sur mon document elle est situé cellule M7 et dedans c'est marqué (par ex) xxxxxxx@xxx.fr)

Mais en reprenant mon programme, via la cellule, l'envoie ne se fait pas... ET par contre en indiquant l'adresse mail directement dans le VBA, ça fonctionne.

C'est tout simplement pour : si un intérimaire viens prendre un rapport vierge, il aura juste à aller mettre son email dans la fameuse cellule M7 au lieu d'aller modifier dans le VBA

Si quelqu'un pourrais m'aider, ce serais cool !

Merci à vous

Joyeuse fêtes

Bonjour,

Je ne suis pas très fort en VBA, mais il faut essayer avec

Dim mail as Range
mail = Range("M7").value
MonMessage.to = mail

Sinon, essayer d'activer ton classeur, ça pourra aider surtout si ce n'est pas sur la même feuille!

Du courage!

Oups, j'ai du faire un double sujet, surement parceque j'ai validé deux fois mon postage

Du coup j'ai pas vu ton message !

Merci à toi, je vais essayer et je te tiens informé !

Private Sub EnvoyerEmail_Click()'nom du bouton

Dim mel As String

If USFFournisseur.txtEmail.Value = "" Then' nom de la zone de texte (TextBox)

MsgBox "Veuillez entrer un email valide"'si pas d'email dans la texte box

Else

mel = USFFournisseur.txtEmail.Value

ActiveWorkbook.FollowHyperlink Address:="Mailto:" & mel

End If

End Sub

A tester