Problème macro envoi sélection cellule dans le mail

Résolu/Fermé
El gordo 79 Messages postés 4 Date d'inscription dimanche 5 janvier 2014 Statut Membre Dernière intervention 7 janvier 2014 - 7 janv. 2014 à 16:36
eriiic Messages postés 24495 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 6 février 2023 - 7 janv. 2014 à 22:57
Bonjour tout le monde,


J'ai fait la macro suivante à partir de différentes discussions sur le forum

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("D7") ' adresse mail du destinataire
Subj = Range("A9") ' sujet du message
Msg = Msg & Range("A11:G" & ActiveCell.Row).Select ' corps du message
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Le résultat me permet d'envoyer par mail à l'adresse située en d7 , avec un objet en a9 et un message avec les cellules A 11 à G ...
Tout fonctionne sauf la partie de corps de mail qui m'affiche VRAI
Je voudrais que le corps affiche le texte ainsi que le tableau qui se trouve dans mon fichier EXCEL.

Quelqu'un aurait-il une idée de la solution pour y arriver ?

Merci d'avance!
A voir également:

2 réponses

eriiic Messages postés 24495 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 6 février 2023 7 157
7 janv. 2014 à 20:24
Bonjour,

à tester :
Msg = Msg & Range("A11:G" & ActiveCell.Row).Value ' corps du message
0
El gordo 79 Messages postés 4 Date d'inscription dimanche 5 janvier 2014 Statut Membre Dernière intervention 7 janvier 2014
7 janv. 2014 à 22:36
Bonjour,

Merci pour ce retour mais le Value fout le système en l'air !

En fait, il suffit de faire une truc (à la con) :
quand le mail s'affiche, clique droit sur le VRAI et 'afficher comme une citation' et les valeurs s'affichent avec une mise en forme bien mais pas top (mais ça me suffira!)

Merci beaucoup pour ton aide eriiic
0
eriiic Messages postés 24495 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 6 février 2023 7 157
7 janv. 2014 à 22:57
ok, je met en résolu pour toi alors.
En haut vers ton titre pour la prochaine fois
eric
0