Discussion :

[jamesdu75]

Bonjour a toutes et tous.

J'essaie depuis un moment d’envoyer un mail avec dans le corps du texte un tableau que j'aurais a préalable sélectionné via la fonction ActiveSheet.Range

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub EnvoiStat()
 
 
sujet = "Statistique mensuelle de " & nom
 
msg = ActiveSheet.Range("A1:AR12").Copy
 
URLto = "mailto:" & nom & "?subject=" & sujet & "&body=" & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
 
End Sub

Avec le code ci dessus j'ai bien réussis a créer le mail et l'objet.
Mon soucis est avec les cellules, il m'inscrit "vraie" dans le corps du texte ou rien du tout.

Tout le problème viens de ma variable "msg"


Est ce que quelqu'un a une solution ?

PS : j'ai vus des tas de solution assez complexe a base d'ouverture de base notes ect ... Je ne trouve pas que cette solution soit adapté.

[BlueMonkey]

Bonsoir,

Regarde Comment insérer une plage de cellules dans le corps du message ?