Bonjour à tous,

J'aimerais effectué un Copier/Copier d'une plage de données de mon classeur Excel et le mettre dans le corps d'un mail Outlook.

Voici le résultat attendu:

Nom : Capture.PNG Affichages : 12130 Taille : 74,8 Ko

Voici le code que j'utilise pour le moment:
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
 
Private Sub Cb_MailNewStaff_Click()
        Dim OutApp As Object
        Dim OutMail As Object
 
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
 
        On Error Resume Next
        With OutMail
            .to = "Tot@blabla.com"
            .CC = ""
            .BCC = ""
            .Subject = "Test Macro"
            Worksheets("Sheet1").Range("A43:H53").Copy
            .Body = Range("A43:H53").PasteSpecial
            '.Attachments.Add ActiveWorkbook.FullName
            .Display 'or use .Send
        End With
        On Error GoTo 0
 
        Set OutMail = Nothing
        Set OutApp = Nothing
End Sub
Comme vous pouvez le voir j'ai essayé la fonction ".PasteSpecial", mais sans succès :/

Avez-vous une idée ?

Merci par avance de votre aide,
Rainmax