Envoyer un fichier Excel par mail avec 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 18 19

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

---

Bonjour,

Le classeur EXcel doit être enregistré avant envoi. Utilise :

Code:

---

1 2 3 4

Dim XL As Object, Classeur As Object Set XL = GetObject(, "Excel.Application") Set Classeur = XL.activeworkbook MonMessage.Attachments.Add Classeur.FullName

---

Bonjour

J'ai mis le code que tu m'as dis mais il ne fait rien quand je pèse sur le bouton "Envoyer mail", et le fichier excel est ouvert ?

Quel est le problème ?

Merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub BDCEnvoiPDF_Click() Dim MonOutlook As Object Dim MonMessage As Object Dim XL As Object, Classeur As Object   Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) Set XL = GetObject(, "Excel.Application") Set Classeur = XL.ActiveWorkbook   MonMessage.to = "test@hotmail.com" MonMessage.cc = "test@hotmail.com" MonMessage.Attachments.Add Classeur.FullName MonMessage.Subject = "bla bla bla" Corps = Corps & "bla bla bla." MonMessage.body = Corps MonMessage.send Set MonOutlook = Nothing MsgBox "Courriel envoyé" End Sub

---

Citation:

---

J'ai mis le code que tu m'as dis mais il ne fait rien quand je pèse sur le bouton "Envoyer mail"

---

Est-ce que le message est envoyé sans pièce jointe ? Est-ce que le classeur a été enregistré au moins une fois ?

Oui le classeur a été enregistré et il est toujours ouvert

Le message n'est pas du tout envoyé, il plante à cette ligne:

Code:

---

MonMessage.Attachments.Add Classeur.FullName

---

Je viens d'exécuter la procédure.Pièce jointe 167138 Avec Office 2013, elle fonctionne. En mettant :

Code:

---

MonMessage.display

---

au lieu de :

Code:

---

MonMessage.send

---

J'obtiens :
Pièce jointe 167139
Problème de version ?

Moi, il bogue toujours à cette ligne :

Code:

---

MonMessage.Attachments.Add ActiveWorkbook.FullName

---

Je ne peux pas voir ta pièce jointe ? Peux-tu me l'envoyer ?

Merci

Pas celle-ci, mais une autre, oui, mais qu'est-ce que tu veux voir ? Qu'est-ce que représente le string "Classeur.FullName ?

Je veux qu'il ouvre le fichier qui est actuellement ouvert

Il y a une application access que ça fonctionne et quand j'essaie la même procédure avec une autre application ça ne fonctionne pas ça bogue à cette ligne

Les deux applications sont faites sur le même principe, je ne comprends pas

Quel est exactement le message d'erreur ?

Pièce jointe 167291Pièce jointe 167292

voici

Cf. message #2; tu ne peux pas faire référence à "ActiveWorkbook", puisque tu es dans Access. Ajoute les lignes :

Code:

---

1 2 3 4

Dim XL As Object, Classeur As Object Set XL = GetObject(, "Excel.Application") Set Classeur = XL.activeworkbook MonMessage.Attachments.Add Classeur.FullName

---

MERCI !

Et si c'est un fichier PDF au lieu d'Excel, est qu'on met PDF?

Tu veux dire le fichier PDF ouvert, sans en connaître le nom ? Là, je ne sais pas.

Pose la question sur le forum et envoie en même temps un message privé à kiki29, qui en connaît un bout sur les PDF.