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