Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Envoi de mail encore et encore ...

Envoi de mail encore et encore ...

6 réponses
Avatar
ZiG
Bonjour qqun !
J'avance, enfin si on peut dire avancer ... dans mon code pour l'envoi d'une
feuille Xl par mail sans fichier joint mais avec une plage de cellule comme
body de mon message.

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
With Worksheet("Mafeuille")
.Range(AA2:AA25).copy
Msg =
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

C'est à Msg que je flanche ... comment lui dire coller
mes cellules dans le body ... ???
Lorsque je clique sur le bouton envoi, il m'ouvre bien mon
logiciel (groupwise) de mail et me propose de l'envoyer, si je fais un ctl V
il me le copie bien ...

Merci pour votre aide ...

David
Signaler un problème avec ce contenu

6 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
Paul V.
Bonjour,

La difficulté provient du fait aue tu essayes de coller une "image" dans un
texte (string).
Si tu veux uniquement récupérer les valeurs, tu peux utiliser qqchose comme
:

Range(AA2:AA25).select
For Each x In Selection
msg = msg & " " & x.Value
Next x
à la place de ton copier coller.

C'est pas testé mais cela devrait fonctionner.

HTH
Paul V

ZiG wrote:
Bonjour qqun !
J'avance, enfin si on peut dire avancer ... dans mon code pour
l'envoi d'une feuille Xl par mail sans fichier joint mais avec une
plage de cellule comme body de mon message.

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
With Worksheet("Mafeuille")
.Range(AA2:AA25).copy
Msg > URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

C'est à Msg que je flanche ... comment lui dire coller
mes cellules dans le body ... ???
Lorsque je clique sur le bouton envoi, il m'ouvre bien mon
logiciel (groupwise) de mail et me propose de l'envoyer, si je fais
un ctl V il me le copie bien ...

Merci pour votre aide ...

David


Avatar
ZiG
merci ça marche !
mais pas come je veux.
jusque là j'arrivai à le faire ...
mais le problème c'est qu'il n'accepte pas les sauts de lignes même en
modifiant la ligne
msg = msg & " " & x.Value & vbCrLf

"Paul V." a écrit dans le message de
news:
Bonjour,

La difficulté provient du fait aue tu essayes de coller une "image" dans
un

texte (string).
Si tu veux uniquement récupérer les valeurs, tu peux utiliser qqchose
comme

:

Range(AA2:AA25).select
For Each x In Selection
msg = msg & " " & x.Value
Next x
à la place de ton copier coller.

C'est pas testé mais cela devrait fonctionner.

HTH
Paul V

ZiG wrote:
Bonjour qqun !
J'avance, enfin si on peut dire avancer ... dans mon code pour
l'envoi d'une feuille Xl par mail sans fichier joint mais avec une
plage de cellule comme body de mon message.

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
With Worksheet("Mafeuille")
.Range(AA2:AA25).copy
Msg > > URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

C'est à Msg que je flanche ... comment lui dire coller
mes cellules dans le body ... ???
Lorsque je clique sur le bouton envoi, il m'ouvre bien mon
logiciel (groupwise) de mail et me propose de l'envoyer, si je fais
un ctl V il me le copie bien ...

Merci pour votre aide ...

David






Avatar
Jean-François Aubert
salut ZiG,

est-ce que :

msg = msg & " " & x.Value & vbNewLine

pourrait faire l'affaire ?
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"ZiG" a écrit dans le message de news:
merci ça marche !
mais pas come je veux.
jusque là j'arrivai à le faire ...
mais le problème c'est qu'il n'accepte pas les sauts de lignes même en
modifiant la ligne
msg = msg & " " & x.Value & vbCrLf

"Paul V." a écrit dans le message de
news:
Bonjour,

La difficulté provient du fait aue tu essayes de coller une "image" dans
un

texte (string).
Si tu veux uniquement récupérer les valeurs, tu peux utiliser qqchose
comme

:

Range(AA2:AA25).select
For Each x In Selection
msg = msg & " " & x.Value
Next x
à la place de ton copier coller.

C'est pas testé mais cela devrait fonctionner.

HTH
Paul V

ZiG wrote:
Bonjour qqun !
J'avance, enfin si on peut dire avancer ... dans mon code pour
l'envoi d'une feuille Xl par mail sans fichier joint mais avec une
plage de cellule comme body de mon message.

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
With Worksheet("Mafeuille")
.Range(AA2:AA25).copy
Msg > > > URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

C'est à Msg que je flanche ... comment lui dire coller
mes cellules dans le body ... ???
Lorsque je clique sur le bouton envoi, il m'ouvre bien mon
logiciel (groupwise) de mail et me propose de l'envoyer, si je fais
un ctl V il me le copie bien ...

Merci pour votre aide ...

David










Avatar
news.urbanet.ch
non idem ...
me les met toutes à la suite sur une ligne ...
dommage
"Jean-François Aubert" <à a écrit dans le message de
news:3f99505a$
salut ZiG,

est-ce que :

msg = msg & " " & x.Value & vbNewLine

pourrait faire l'affaire ?
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"ZiG" a écrit dans le message de
news:

merci ça marche !
mais pas come je veux.
jusque là j'arrivai à le faire ...
mais le problème c'est qu'il n'accepte pas les sauts de lignes même en
modifiant la ligne
msg = msg & " " & x.Value & vbCrLf

"Paul V." a écrit dans le message de
news:
Bonjour,

La difficulté provient du fait aue tu essayes de coller une "image"
dans



un
texte (string).
Si tu veux uniquement récupérer les valeurs, tu peux utiliser qqchose
comme

:

Range(AA2:AA25).select
For Each x In Selection
msg = msg & " " & x.Value
Next x
à la place de ton copier coller.

C'est pas testé mais cela devrait fonctionner.

HTH
Paul V

ZiG wrote:
Bonjour qqun !
J'avance, enfin si on peut dire avancer ... dans mon code pour
l'envoi d'une feuille Xl par mail sans fichier joint mais avec une
plage de cellule comme body de mon message.

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
With Worksheet("Mafeuille")
.Range(AA2:AA25).copy
Msg > > > > URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

C'est à Msg que je flanche ... comment lui dire coller
mes cellules dans le body ... ???
Lorsque je clique sur le bouton envoi, il m'ouvre bien mon
logiciel (groupwise) de mail et me propose de l'envoyer, si je fais
un ctl V il me le copie bien ...

Merci pour votre aide ...

David














Avatar
Paul V.
Bonjour,

La position du VBCRLF ne me semble pas judicieuse.
Je te propose :
msg = msg & vbCrLf & " " & x.Value

HTH

Paul V

ZiG wrote:
merci ça marche !
mais pas come je veux.
jusque là j'arrivai à le faire ...
mais le problème c'est qu'il n'accepte pas les sauts de lignes même en
modifiant la ligne
msg = msg & " " & x.Value & vbCrLf

"Paul V." a écrit dans le message de
news:
Bonjour,

La difficulté provient du fait aue tu essayes de coller une "image"
dans un texte (string).
Si tu veux uniquement récupérer les valeurs, tu peux utiliser
qqchose comme



Range(AA2:AA25).select
For Each x In Selection
msg = msg & " " & x.Value
Next x
à la place de ton copier coller.

C'est pas testé mais cela devrait fonctionner.

HTH
Paul V

ZiG wrote:
Bonjour qqun !
J'avance, enfin si on peut dire avancer ... dans mon code pour
l'envoi d'une feuille Xl par mail sans fichier joint mais avec une
plage de cellule comme body de mon message.

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
With Worksheet("Mafeuille")
.Range(AA2:AA25).copy
Msg >>> URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

C'est à Msg que je flanche ... comment lui dire coller
mes cellules dans le body ... ???
Lorsque je clique sur le bouton envoi, il m'ouvre bien mon
logiciel (groupwise) de mail et me propose de l'envoyer, si je fais
un ctl V il me le copie bien ...

Merci pour votre aide ...

David






Avatar
ZiG
Non...ça ne change rien ...
je désespère ...
"Paul V." a écrit dans le message de
news:3f995f7b$0$282$
Bonjour,

La position du VBCRLF ne me semble pas judicieuse.
Je te propose :
msg = msg & vbCrLf & " " & x.Value

HTH

Paul V

ZiG wrote:
merci ça marche !
mais pas come je veux.
jusque là j'arrivai à le faire ...
mais le problème c'est qu'il n'accepte pas les sauts de lignes même en
modifiant la ligne
msg = msg & " " & x.Value & vbCrLf

"Paul V." a écrit dans le message de
news:
Bonjour,

La difficulté provient du fait aue tu essayes de coller une "image"
dans un texte (string).
Si tu veux uniquement récupérer les valeurs, tu peux utiliser
qqchose comme



Range(AA2:AA25).select
For Each x In Selection
msg = msg & " " & x.Value
Next x
à la place de ton copier coller.

C'est pas testé mais cela devrait fonctionner.

HTH
Paul V

ZiG wrote:
Bonjour qqun !
J'avance, enfin si on peut dire avancer ... dans mon code pour
l'envoi d'une feuille Xl par mail sans fichier joint mais avec une
plage de cellule comme body de mon message.

Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("c56")
Subj = Range("I1")
With Worksheet("Mafeuille")
.Range(AA2:AA25).copy
Msg > >>> URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

C'est à Msg que je flanche ... comment lui dire coller
mes cellules dans le body ... ???
Lorsque je clique sur le bouton envoi, il m'ouvre bien mon
logiciel (groupwise) de mail et me propose de l'envoyer, si je fais
un ctl V il me le copie bien ...

Merci pour votre aide ...

David