Discussion :

[chasseur37]

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

[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

[chasseur37]

je n'arrive pas ouvrir le premier lien !!!

[ThierryAIM]

liens corrigés dans le post de ouskelnor

ousk, t'es à l'amende

[chasseur37]

Ca peut aider quelqu'un !

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