Discussion :

[roguy]

Bonjour à tous,
j'ai un petit souci que j'espère résoudre grace à vous.
je souhaiterai en effet récupérer les données des cellules de mon classeur excel et les placer en objet du mail outlook.
j'ai déjà formulé une macro qui me renvoie vers la page d'accueil outlook avec en pièce jointe mon classeur, mais j'aimerais que les valeurs entrées dans les cellules B3 , B5 et C7 soient dans l'objet du mail.

la macro actuelle est

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
Sub macrotest()
 
 
    Dim OL As Object
    Dim OLmail As Object
    Set OL = CreateObject("Outlook.Application")
    Set OLmail = OL.CreateItem(0)
    With OLmail
 
        .To = "adresse@mail.fr"
        .Subject = "" 'objet cellules
        .Body = "Bonjour, ...? "
 
        .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
        .Display
 
    End With
 
End Sub

quelqu'un pour m'aider svp ?