Créer un PDF en VBA sous Excel

Version imprimable

04/10/2006, 11h33
chasseur37

Créer un PDF en VBA sous Excel

Salut

J'ai un document excel(2002) qui a plusieurs feuilles. Sur une des feuilles j'ai plusieurs tableaux nommés. Je veux qu'un des tableaux soit extrait en PDF afin que je puisse l'envoyer par mail.

Si vous savez faire, n'hesitez pas a laisser un petit mot .

Merci
04/10/2006, 14h35
ouskel'n'or

Voici toujours deux adresses qui pourraient peut-être t'intéresser :
http://www.developpez.net/forums/sho...ght=pdfcreator
qui devrait te convenir (???) et la suivante, sous VB, qui répond à la question "Piloter PdfCreator depuis word" et qu'il reste à adapter pour VBA.
http://www.developpez.net/forums/sho...d.php?t=211931
bon courage
04/10/2006, 16h05
chasseur37

je n'arrive pas ouvrir le premier lien !!!
04/10/2006, 16h25
ThierryAIM

liens corrigés dans le post de ouskelnor :mouarf:

ousk, t'es à l'amende :mouarf3:

Ca peut aider quelqu'un !

Code:

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
 
Sub PDF3()
'
' PDF3 Macro
' Macro enregistrée le 04/10/2006 par RAGUIN
'
    Sheets("SITUATION JOUR").Select   'Nom de la feuille excel
    ActiveWindow.SmallScroll Down:=-33
    Range("A151:M227").Select  'selection d'un tableau
    Application.ActivePrinter = "PDFCreator sur Ne00:"  'utilisation du programe PDFcreator
    Selection.PrintOut Copies:=1, ActivePrinter:="PDFCreator sur Ne00:", _
        Collate:=True
 
'pour envoyer le doc par mail  
 Dim MonOutlook As Object
  Dim MonMessage As Object
  ' Ici sera installé le code proprement dit
  ' On crée une instance d'Outlook :
  Set MonOutlook = CreateObject("Outlook.Application")
  ' Et on crée un élément Outlook, qui sera un message E-Mail :
  Set MonMessage = MonOutlook.CreateItem(0)
 
  MonMessage.To = "b.raguin@vermandoise.fr"
  MonMessage.Subject = "Quel beau soleil"
  MonMessage.Body = "N'est ce pas un beau temps pour aller à la piscine ?"
  MonMessage.Attachments.Add "C:\Documents and Settings\..\Bilan.pdf"
  MonMessage.send
  Kill "C:\Documents and Settings\..\Bilan.pdf" 'supprimer le fichier
 
  Set MonOutlook = Nothing ' On ferme !