Envoi d'un mail via excel

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:

---

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:

---

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:

---

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.

Bonjour,

une solution différente est de sauver ta plage ("A94:F105") seule dans un fichier excel nouveau et attacher ce nouveau fichier excel à ton email plutot que d'essayer de mettre ton range dans le corps de ton email.

Il y a quoi dans ton range ?:?

Citation:

---

Envoyé par Godzestla

Bonjour,

une solution différente est de sauver ta plage ("A94:F105") seule dans un fichier excel nouveau et attacher ce nouveau fichier excel à ton email plutot que d'essayer de mettre ton range dans le corps de ton email.

Il y a quoi dans ton range ?:?

---

Merci pour ta réponse !

Dans mon range il y a un recap de certaines données de ma feuillle.
Exemple :
Nom du client =A3
Email du client =E13

Puis un texte que j'écris manuellement pour un compte rendu d'activité.

J'ai bien pensé à mettre la feuille en pièce jointe, mais cette solution n'est pas envisageable pour différentes raisons (notamment technique)

Merci ;)

Bonjour,
Pour un cas similaire j'ai utiliser une variable que j'avais appelé MyText que j'ai défini comme ceci:

Code:

---

MyText = Range("A94") & " " & Range ("A95")

---

Etc

A toi de voir en fonction de ce que tu veux de prévoir des retour à la ligne ou de supprimer les espaces, ...

Il y a surement mieux mais ca dépanne.

Citation:

---

Envoyé par Fvandermeulen

Bonjour,
Pour un cas similaire j'ai utiliser une variable que j'avais appelé MyText que j'ai défini comme ceci:

Code:

---

MyText = Range("A94") & " " & Range ("A95")

---

Etc

A toi de voir en fonction de ce que tu veux de prévoir des retour à la ligne ou de supprimer les espaces, ...

Il y a surement mieux mais ça dépanne.

---

Hey merci, ça fonctionne ! En attendant une meilleure solution je vais opter pour ce système.. par contre : comment tu fais pour avoir des retours à la ligne, des espaces,... ?

Tidams

J'utilise les 'Chr', là aussi je sais qu'il y a mieux mais les habitudes sont difficiles à changer...Ci-dessous un example avec espace

Code:

---

& " " &

---

et mise à la ligne

Code:

---

& chr(10) & chr(13) &.

---

J'ai mis un msg box pour voir le résultat.

Code:

---

1 2 3

MyText = Range("a94") & " " & Range("b94") & Chr(10) & Chr(13) & _ Range("a95") & " " & Range("b95") MsgBox (MyText)

---

Attention les espaces avant et après les "&" sont imporants.

Bonne continuation.

Mon msgbox fonctionne bien : retour à la ligne, espace,... mais une fois dans le client de messagerie, toutes les données se mettent à la suite sans prendre en considération le formatage demandé

Dans ce cas, voici une autre methode (avec outlook), tu verras qu'elle permet la mise en page du texte avec la méthode Chr.
Dans l'exemple, il y a une pièce jointe, je le laisse ça pourra peut-être te servir plus tard.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub EnvoiFichier()   ' ENVOI PAR E-MAIL DU FICHIER :   Dim MonOutlook As Object Dim MonMessage As Object   Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "" 'défini le fichier à mettre en pièce jointe   Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = Range("e13") 'Attention le lien hypertexte doit être supprimé dans la cellule de ref. (dans ton cas e13 MonMessage.Cc = MonMessage.Attachments.Add Monfichier 'supprimer cette ligne si pas de pièce jointe MonMessage.Subject = Range("e14") Corps = "Bonjour," Corps = Corps & Chr(13) & Chr(10) Corps = Corps & range("a94") 'Tu peux multiplier la ligne du dessus autant que nécessaire pour avoir le texte que tu désire MonMessage.body = Corps MonMessage.send Set MonOutlook = Nothing End Sub

---

J'espère que cette fois ce sera OK.

Merci pour tout ! ca fonctionne !

Problème résolu?

Bouton :resolu:, en bas de discussion.

Merci