Envoyer un fichier Excel ouvert par Access
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:
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 |
