Bonjour à tous.

Je suis en train de créer une feuille XLS pour le boulot.
Cette feuille est un compte rendu d'activité.

J'ai besoin sur cette feuille d'ajouter un bouton me permettant d'envoyer un email au client dont l'adresse email est dans la cellule : E13, le sujet dans E14, et le message sur la plage de cellule : a94:f105.

J'arrive parfaitement à envoyer mon mail si le message est simplement sur la cellule : A94 avec le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("E13")
Subj = Range("E14")
Msg = Msg & Range("A94")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Cependant j'ai vraiment besoin que mon message contienne toutes les informations qui se trouvent de la cellule a94 : f105. J'ai alors tout bêtement écrit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("E13")
Subj = Range("E14")
Msg = Msg & Range("A94:F105")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Mais lorsque je clique sur mon bouton, j'ai une erreur de script et le débugueur m'indique cette ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Msg = Msg & Range("A94:F105")
Je ne suis pas un spécialiste script sous excel... Pouvez-vous éclairer ma lanterne ?

Merci par avance,

Au plaisir.