Bonjour a tous,

je viens vers ou car je bute sur quelque chose de simple mais je n'arrive pas a trouver la synthaxe.
Explication :

Je crée un petit programme avec un OLEexcel ( OLE1 ) afin de remplir rapidement un fichier excel prés établi.
une fois rempli j'arrive a mettre ces données dans excel ( Les infos forment une image et non le remplissement des cellules excel )
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
Dim oExcel As Excel.Application
    Dim adresse As String
 
On Error Resume Next
 
OLE1.Copy
 
On Error GoTo 0
 
 
 
  adresse = "C:\Documents and Settings\Bureau"
    Dim oWk As Workbook
 
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True 'Affiche l'application excel
Set oWk = oExcel.Workbooks.Open(adresse & "\reporting.xlsx")
 
        ActiveWorkbook.Sheets("feuil1").Select
        Columns("A:A").Select
   ActiveSheet.Paste
 
Set oExcel = Nothing 'libération mémoire..
Ce code marche, Par contre j'aimerai remplir cette OLE comme c'est le cas mais par contre je cherche à l'envoyer directement par email :

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
 
Dim NewMail As Outlook.MailItem
 
 
On Error Resume Next
 
OLE1.Copy
 
On Error GoTo 0
 
    Set NewMail = OutlookApp.CreateItem(olMailItem)
    NewMail.Recipients.Add ("pex@aol.fr")
    NewMail.Subject = "Demande Activité"
    NewMail.Body = ""  'si possible j'aimerai l'attacher dans le corps du message
        Newmail.Attachments.Add 'Ou le mettre en PJ mais je n'arrive pas a trouver la syntaxe pour coller l'élément.
        NewMail.Send


merci de votre aide
Cordialement

Pex