Bonjour,

J'utilise la procédure ci-dessous pour envoyer un fichier PDF via Outlook 2003 à l'aide d'un bouton placé dans un fichier Excel.
Lorsque je clique sur ce bouton, Outlook s'ouvre en y joignant le fichier PDF.
Jusqu'à là, pas de soucis.
Seulement, je voudrais que ce bouton puisse dans une même procédure et dans un premier temps, transformer le fichier Excel en fichier PDF (là je sais pas !) et me l'expédie dans un deuxième temps (là je sais !)

Auriez vous une idée ?

Merci

Etorria

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'Envoi du TB via Outlook
Private Sub CommandButton1_Click()
Call Envoi
End Sub
 
Sub Envoi()
Const olMailItem = 0
Dim ol As Object, myItem As Object
Dim strHtml As String
 
strHtml = strHtml & "<font size=3mm>" & "Bonjour, </font><BR>"
strHtml = strHtml & "<BR><font size=3mm>" & "Vous trouverez ci-joint le <B>Tableau</B></font>"
strHtml = strHtml & "<BR><BR><BR><BR>" & "<font color=black>" & "Cordialement,</font>" & "<BR>"
strHtml = strHtml & "<BR><BR><font size=3mm>" & "Pierre Jacques</font>"
strHtml = strHtml & "<BR><font size=3mm>" & "Service A</font>"
strHtml = strHtml & "<BR><font size=3mm>" & "Société X</font>"
strHtml = strHtml & "<BR><font size=2mm>" & "Tél. : 00 00 00 00 00</font>"
 
Set ol = CreateObject("Outlook.application")
Set myItem = ol.CreateItem(olMailItem)
 
With myItem
        .To = "destinataire1@societe.com"
        .CC = "destinataire2@societe.com"
        .Subject = "Tableau"
        .HTMLBody = strHtml
        .Attachments.Add ("c:\pdf\Tableau.pdf")
 
myItem.Display
 
End With
 
Set ol = Nothing
 
End Sub