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.