Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Envoyer par email une selection de cellules

Envoyer par email une selection de cellules

3 réponses
Avatar
PAT0051
Bonjour =E0 tous,

Je souhaite inclure dans un email les donn=E9es de cellules
selectionn=E9es.
J'arrive =E0 selectionner les cellules avec la commande
Application.InputBox, mais je n'arrive pas =E0 l'inclure dans la valeur
Subj
Ci-joint ma macro.

Merci de votre aide
Pat0051

Sub EnvoiUnMailtest1()
'
'Envoie Email pour demande de renseignements
'
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim Plage As Range

Set Plage =3D Application.InputBox("S=E9lectionnez une plage !",
"S=E9lection de cellules", Type:=3D8)

MailAd =3D Range("y2")
Subj =3D ................La valeur Plage est =E0 inclure ici.........
Msg =3D "Merci de renseigner les points suivants"
URLto =3D "mailto:" & MailAd & "?subject=3D" & Subj & "&body=3D" & Msg
ActiveWorkbook.FollowHyperlink Address:=3DURLto

End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonsoir.
Si tu veux coller la sélection dans le corps du message, regarde la page de
Ron de Bruin :
http://www.rondebruin.nl/mail/folder3/mail4.htm
Cordialement.
Daniel
"PAT0051" a écrit dans le message de news:

Bonjour à tous,

Je souhaite inclure dans un email les données de cellules
selectionnées.
J'arrive à selectionner les cellules avec la commande
Application.InputBox, mais je n'arrive pas à l'inclure dans la valeur
Subj
Ci-joint ma macro.

Merci de votre aide
Pat0051

Sub EnvoiUnMailtest1()
'
'Envoie Email pour demande de renseignements
'
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim Plage As Range

Set Plage = Application.InputBox("Sélectionnez une plage !",
"Sélection de cellules", Type:=8)

MailAd = Range("y2")
Subj = ................La valeur Plage est à inclure ici.........
Msg = "Merci de renseigner les points suivants"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub
Avatar
Philippe.R
Bonsoir,
Non testé, la plage pouvant comporter plusieurs cellules, je suppose que
c'est la concaténation des différentes valeurs qui t'intéresse :

remplacer Subj= par

for each c in Plage
Subj=Subj & " " & c.value
next c
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"PAT0051" a écrit dans le message de
news:
Bonjour à tous,

Je souhaite inclure dans un email les données de cellules
selectionnées.
J'arrive à selectionner les cellules avec la commande
Application.InputBox, mais je n'arrive pas à l'inclure dans la valeur
Subj
Ci-joint ma macro.

Merci de votre aide
Pat0051

Sub EnvoiUnMailtest1()
'
'Envoie Email pour demande de renseignements
'
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim Plage As Range

Set Plage = Application.InputBox("Sélectionnez une plage !",
"Sélection de cellules", Type:=8)

MailAd = Range("y2")
Subj = ................La valeur Plage est à inclure ici.........
Msg = "Merci de renseigner les points suivants"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub
Avatar
PAT0051
On 11 mar, 21:59, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir,
Non testé, la plage pouvant comporter plusieurs cellules, je suppose que
c'est la concaténation des différentes valeurs qui t'intéresse :

remplacer Subj= par

for each c in Plage
    Subj=Subj & " " & c.value
next c
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"PAT0051" a écrit dans le message denews:9d97de98-
Bonjour à tous,

Je souhaite inclure dans un email les données de cellules
selectionnées.
J'arrive à selectionner les cellules avec la commande
Application.InputBox, mais je n'arrive pas à l'inclure dans la valeur
Subj
Ci-joint ma macro.

Merci de votre aide
Pat0051

Sub EnvoiUnMailtest1()
'
'Envoie Email pour demande de renseignements
'
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim Plage As Range

Set Plage = Application.InputBox("Sélectionnez une plage !",
"Sélection de cellules", Type:=8)

MailAd = Range("y2")
Subj = ................La valeur Plage est à inclure ici.........
Msg = "Merci de renseigner les points suivants"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub


Bingo, c'est exactement ce que je cherchais
Merci Philippe de ton aide,
Pour le lien sur "http://www.rondebruin.nl/mail/folder3/mail4.htm",
merci Daniel, je vais m'en inspirer pour compléter ma macro.

Cordialement
PAT0051