Insèrer une plage de cellule dans le corps de texte d'un mail

H

help!

XLDnaute Nouveau
Bonjour ,:)


Je cherche à créer depuis un fichier Excel, une macro permettant d'envoyer dans le corps d'un mail (depuis la messagerie installée par défaut) une plage de cellule du classeur ou une image contenu dans la feuille:

Voila la macro :

Sub EnvoiMail()Dim MailAd As StringDim Msg As StringDim Subj As StringDim URLto As StringDim Pj As StringMailAd = "toto@maison.toto"Subj = "Alerte sur …. "Msg = "Veuillez trouver ci-dessus la liste ........"URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub

Cette macro me permet bien d'envoyer le mail, d'y insérer automatiquement: le destinataire, l'objet et le corps de texte, mais elle ne me permet pas d'insérer dans le corps du texte: un tableau ou une image.:mad:

Pourriez-vous m'aider à résoudre ce problème svp ? :confused:
 
Trier par date Trier par votes
H

help!

XLDnaute Nouveau
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

Bonjour à tous,

J'ai essayé les macros proposées mais malheureusement ca ne fonctionne pas :confused:

Cela est peut être du au fait qu'elles sont écrite pour fonctionner avec outlook et non avec la messagerie installée par défaut.

Je continue mes recherches et vous remercie pour ls pistes fournies :)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

Re

edit: pas de wiki , mais le moteur de recherche fonctionne
https://www.excel-downloads.com/threads/envoi-par-mail.80541/

cette macro de Michelxld semble trés bien :Sub envoiPlageCellules_Excel2002()
(en espérant que t aies au moins excel 2002)


Comme le Wiki est indisponible pour le moment

je te propose ce lien externe au forum
Mail the Selection with SendMail

Au fait quel est ton client de messagerie?
 
Dernière édition:
Vote positif 0 Vote négatif
H

help!

XLDnaute Nouveau
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

Merci Staple 1600 et Michel Xld,:)

Deux des exemples proposés sur le lien Mail the Selection with SendMail fonctionne avec mon fichier excel (ps: j'ai Excel 2000).:)

Cependant elle ne permette pas d'inclure la sélection dans le corps du mail: en fait elle le copie dans un nouveau classeur qu'elle met en pièce jointe au mail.:confused:

En tout cas, je vous remercie, car elles permettront de me dépaner jsqu'à ce que je trouve le bon code pour inclure la selection dans le corps du Mail.:)
 
Vote positif 0 Vote négatif
M

MichelXld

XLDnaute Barbatruc
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

bonjour

Tu peux aussi utiliser

Code: 
Sub PlageDeCellulesDansCorpsDuMessage()
'testé avec XP
'Send using the Pickup directory on the IIS server.
'adapté de : How To Send HTML Formatted Mail Using CDO for Windows 2000 and the Local Pickup Directory
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim i As Byte, j As Byte
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
 
For i = 1 To 5 'nombre de lignes (exemple plage A1:B5)
 
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 1 To 2 'nombre de colonnes
    strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _
            & Cells(i, j) & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"
 
Next i
 
strHTML = strHTML & "</TABLE>"
 
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Environ("username")
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
With iMsg
    Set .Configuration = iConf
    .To = "[EMAIL="destinataire@provider.fr"]destinataire@provider.fr[/EMAIL]" 'renvoie une erreursi l'adresse est non valide
    '.From = "[EMAIL="youralias@yourdomain.com"]youralias@yourdomain.com[/EMAIL]"
    .Subject = "Test Envoi Tableau par mail"
    .HTMLBody = strHTML
    .Send
End With
 
End Sub




Bonne journée
MichelXld
 
Vote positif 0 Vote négatif
H

help!

XLDnaute Nouveau
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

Bonjour MichelXld :)

La macro proposée me permet d'afficher la 1ère ligne du tabeau au format "Zoom * 10 %"
*****
Mail reçu
Bonjour ,
vous trouverez ci joint le tableau demandé

Résultats :

Anomalies

<td bgcolor='blue' align='c >
*****
Et sous le message il y a une ligne bleu d'environ 3 cm et large de 1cm (cela représente peut être le tableau en miniature ).:confused:

La piste a l'air bonne et je t'en remercie :)

Je continue à chercher :confused:
 
Vote positif 0 Vote négatif
H

help!

XLDnaute Nouveau
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

Bonsoir MichelXld :)

Certaines de mes cellules étaient vides je les ai donc complétées mais cela ne fonctionne toujours pas :confused:
J'ai toujours une seule ligne qui s'affiche alors que dans le code j'ai i = 1 to 11 et j = 1 to 5 :confused:
bizarre !!!
et j'ai toujours un message dans le corp du mail du style:
<td bgcolor='yellow' align='center >
Je continue à chercher :)
 
Vote positif 0 Vote négatif
H

help!

XLDnaute Nouveau
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

Bonsoir Tatiak :)

La macro bloc à ce niveau :
Sub Envoi_Mail()
Dim iMsg As New CDO.Message

Peut être que cela est du au fait que je n'ai pas suivi ta remarque préalable:

En activant les références :
* Microsoft ADO Ext ...
* et Microsoft CDO for windows 2000 library

Comment fait on pour les activer ???:confused:

ps: je suis sous Excel 2000

Merci
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Insèrer une plage de cellule dans le corps de texte d'un mail

Bonsoir le fil


Dans l'éditeur VBE (dans Excel faire ALT+F11)

Puis aller dans le menu Outils/Références

Ensuite les cocher les référentes manquantes.

Il faut au moins être sous Windows 2000 ou XP

pour ces références: Microsoft CDO

(sauf erreur de ma part)

A+

Staple
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Question
XL 2010 Copier coller une image dans le corps de message via gmail
Réponses
8
Affichages
450
gwenn49
G
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
302
arnoldbrice19
A
halecs93
  • Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
305
halecs93
halecs93
D
  • Question
XL 2013 envoie tableau dans corp du mail vba
2
Réponses
26
Affichages
1 K
David62800
D
R
  • Question
Microsoft 365 Inserer copie d'ecran ou plage de cellules dans mail
Réponses
4
Affichages
650
romubzh35
R
J
  • Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
325
J@ba
J
L
  • Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
156
fanch55
fanch55
R
  • Question
XL 2016 VBA - Si la plage de cellule contient du texte alors envoi mail automatique
Réponses
4
Affichages
525
Oneida
Oneida
A
  • Question
XL 2019 Ajout d'un lien hypertexte dans un mail envoyé par VBA
Réponses
2
Affichages
429
angelusr71
A
F
  • Question
XL 2016 Envoi mail Outlook plage de cellule (qui ne se déforme pas)
Réponses
13
Affichages
1 K
fanch55
fanch55

Membres actuellement en ligne

6 membres et 85 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 505
Messages
2 089 070
Membres
104 016
dernier inscrit
Mokson