[VBA] Insérer Tableau Excel dans Corps d'un Mail (Outlook)

**savior** · 30/08/2006, 16h08

Salut les gens,

Je souhaite, à partir d'un fichier Excel envoyer par mail un tableau d'une des feuilles Excel (avec un macro).

Mon piti problème est sur l'ajout de ce Tableau (ou plage de cellules) Excel dans le corps d'un mail.

J'ai tout qui marche (envoi mail, bons destinataires...) à part ce piti problème.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Macro()
 
'Déclaration des variables
    Dim EmailSup As String
    Dim MyOlapp As Object
    Dim myItem
    Dim olMailItem
    Dim myRecipients
    Dim myAttachments
 
' J'active la Feuille "Main" sur laquelle se trouve mon tableau
    Windows("Classeur1.xls").Activate
    Sheets("Main").Activate
 
    EmailSup = "email du destinataire"
 
 ' Là, je sélectionne mon tableau       
       Range("A1", "F10").Select
       Selection.Copy
 
        Set MyOlapp = CreateObject("Outlook.Application")
        Set myItem = MyOlapp.CreateItem(olMailItem)
        Set myRecipients = myItem.Recipients
        myRecipients.Add (EmailSup)
        Set myAttachments = myItem.Attachments
 
        myItem.Subject = " Demande quelconque "
        myItem.body = "Corps du Texte, où je veux mettre mon tableau!!!!"
        myItem.Send
 
End Sub

Et donc volà, je ne sais comment insérer mon Tableau dans le mail (sachant que le myItem.body prend du texte je crois?)

Merci d'avance pour votre aide les gens !!!
V.

**SfJ5Rpw8** · 30/08/2006, 17h26

le tableau excel à envoyer, c'est celui contenant la macro .. ou un autre ..?

**SilkyRoad** · 30/08/2006, 17h36

bonjour

si tu disposes d'OfficeXP ou ultérieur

http://support.microsoft.com/default...b;en-us;816644

sinon tu peux paramétrer le corps du message en html

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myItem.HTMLBody = strHTML

apres avoir créé ton tableau dynamiquement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim strHTML As String
 
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>" & Application.UserName
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

ps
dans ce cas il faut eviter les cellules vides dans la plage de cellules cible

michel

**savior** · 31/08/2006, 10h45

Salut,

c'est exactement ce que je cherchais, c cool !!

Merci bien Michel !

A bientôt,
V.

**RYAN78** · 10/10/2006, 11h03

Bonjour

je suis un débutant en VBA et HTML, votre macro m'interresse. Par contre je n arrive pas à intégrer le tableau dans le corps du mail. Pourriez-vous m expliquer la partie du code concernant ce point. Si non, tous fonctionne correctement.

Merci pour vos reponses.

Cordialement :lol:

[VBA] Insérer Tableau Excel dans Corps d'un Mail (Outlook)

Macros et VBA Excel

Discussions similaires

Partager

Partager