envoyer un tableau en html

edmondm · 3 Juillet 2007

Bonjour tt le monde,

si c'est possible,
Je cherche une macro qui va envoyer le contenu d'une table excel(sheet) via outlook en html avec les photos etc...

J ai trouvé plusieurs script qui envoie le fichier en PJ mais rien en html.

J ai penser effectuer une capture d'écran et l'envoyer en mail, mais comment faire pourqu'elle ne s affiche pas en PJ?

Merci à tous

Staple1600 · 3 Juillet 2007

Re : envoyer un tableau en html

Bonjour edmondm, le forum

edit : HOUPS et MEA CULPA: j'avais oublier le WIKI de MichelXLD (désolé)
https://www.excel-downloads.com/threads/envoi-dun-tableau-excel-par-mail.27531/

Un exemple d'export (range as gif) sur le forum
https://www.excel-downloads.com/threads/exporter-une-feuille-en-tant-quimage.66346/

Ailleurs sur le net (procédures pour Outlook+ export HTML)

un exemple d'envoi par outlook ( sans le message d'avertissement)
VBA Visual Basic for Applications (Microsoft) FAQ - Tek-Tips

source:Ce lien n'existe plus

Code:

Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties.

    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    'Create e-mail item
    Set objMail = olApp.CreateItem(olMailItem)

    With objMail
       'Set body format to HTML
       .BodyFormat = olFormatHTML
       .[B]HTMLBody[/B] = "<HTML><BODY>Enter the message text here. </BODY></HTML>"
       .Display
    End With
End Sub

Une macro d'export en HTML
" & MyTitle & "

Une macro de Microsoft

Code:

Sub CreateWebPage()

       Dim ObjToConvert(2) As Variant
       Dim Result As Integer

       ' Populate the ObjToConvert array with the ranges and chart
       ' that you want to export.
       Set ObjToConvert(0) = Sheets("sheet1").Range("a1:a5")
       Set ObjToConvert(1) = Sheets("sheet1").ChartObjects("Chart 1")
       Set ObjToConvert(2) = Sheets("sheet1").Range("a7:a10")

       ' Load the Internet Assistant Wizard add-in.
       AddIns("Internet Assistant Wizard").Installed = True

       ' Create the HTML page.
       Result = htmlconvert(rangeandcharttoconvert:=ObjToConvert, _
                            useexistingfile:=False, _
                            usefrontpageforexistingfile:=False, _
                            addtofrontpageweb:=False, codepage:=1252, _
                            htmlfilepath:="Test.htm", _
                            headerfullpage:="Test Page", _
                            linebeforetablefullpage:=True, _
                            namefullpage:="MyName")

       ' If the conversion is successful, the code htmlconvert_success
       ' is returned.
       If Result = htmlconvert_success Then
           MsgBox "Web Page Created Successfully"
       Else
           MsgBox "Error Creating Web Page"
       End If
    End Sub

edmondm · 3 Juillet 2007

Re : envoyer un tableau en html

Bonjour,

merci pour vos liens; j'ai trouvé un code qui me permet de transformer le tableau en image GIF

Code:

Dim Plage As Range
' Exportation en .gif de la plage A1:I25 (feuille active)
Set Plage = ActiveSheet.Range("A1:I25")
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\New Folder\Test.gif", "GIF"
End With
ActiveWorkbook.Close False

J'ai aussi trouvé un code qui envoie le mail automatiquement vers outlook:
Example Code for sending mail from Excel

Je voudrais mnt insérer l'image .GIF que j'ai crée (voir ci-haut) dans le corps du message en html et pouvoir automatiquement ajouter les destinataires.

Merci pour votre aide

MichelXld · 3 Juillet 2007

Re : envoyer un tableau en html

bonsoir

Tu peux tester ce lien pour insérer l'image dans le message:

To add an embedded image to an HTML message in Microsoft Outlook using code

Bonne soirée
MichelXld

edmondm · 4 Juillet 2007

Re : envoyer un tableau en html

Je n ais pas réussi à integrer ce code! dommage... merci quand meme!

Je reste ouvert à toutes vos propositions...

MichelXld à dit:
bonsoir

Tu peux tester ce lien pour insérer l'image dans le message:

To add an embedded image to an HTML message in Microsoft Outlook using code

Bonne soirée
MichelXld

Effectuez une recherche sur Excel Downloads...

envoyer un tableau en html

edmondm

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

edmondm

XLDnaute Nouveau

MichelXld

XLDnaute Barbatruc

edmondm

XLDnaute Nouveau

Discussions similaires

Nous accordons de l'importance à votre vie privée