Discussion :

[tidams]

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.

[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 ?

[tidams]

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

[Fvandermeulen]

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

Code :

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

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.

[tidams]

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

Code :

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

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

[Fvandermeulen]

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 :

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

& " " &

et mise à la ligne

Code :

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

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

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

Code :

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

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.

[tidams]

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é