Discussion :

[challe1976]

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
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

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[challe1976]

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 :

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
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

[Daniel.C]

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 ?

[challe1976]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Attachments.Add Classeur.FullName

[Daniel.C]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.display

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.send

J'obtiens :

Problème de version ?

[challe1976]

Moi, il bogue toujours à cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Attachments.Add ActiveWorkbook.FullName

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

Merci

[Daniel.C]

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 ?

[challe1976]

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

[Daniel.C]

Quel est exactement le message d'erreur ?

[challe1976]

voici

[Daniel.C]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[challe1976]

MERCI !

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

[Daniel.C]

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.