Bonjour
Dans un application Access, j'ai un bouton, qui produit un fichier Excel et qui l'ouvre ensuite.
Par la suite, j'aimerais cliquer sur un autre bouton qui enverrait par mail le fichier Excel qui est ouvert.
J'ai essayé le code suivant
Comment lui faire dire d'envoyer le fichier Excel qui est actuellement ouvert?
Merci,
Catherine
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 Private Sub BDCEnvoiExcel_Click() Dim MonOutlook As Object Dim MonMessage As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "test@hotmail.com" MonMessage.Attachments.Add MonExcel.ActiveWorkbook MonMessage.Subject = "Frais de facturation" Corps = "Bonjour," Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous trouverez ci-joint le fichier contenant les frais de facturation." MonMessage.body = Corps MonMessage.send Set MonOutlook = Nothing End Sub
Partager