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)
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
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
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" <pmarlier@wanadoo.fr> a écrit dans le message de news:
9d97de98-db0e-481a-8159-2bb0019fe02e@s19g2000prg.googlegroups.com...
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
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
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
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" <pmarlier@wanadoo.fr> a écrit dans le message de
news:9d97de98-db0e-481a-8159-2bb0019fe02e@s19g2000prg.googlegroups.com...
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
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
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
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" <pmarl...@wanadoo.fr> a écrit dans le message denews:9d97de98- db0e-481a-8159-2bb0019fe02e@s19g2000prg.googlegroups.com...
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.
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.