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 )
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
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..
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
Partager