[XL-2010] Macro Excel Enregistrement DOC en PDF

[Naaby]

Bonjour,
Je sais, il existe plusieurs discutions sur le sujet, mais je n'ai pas trouvé mon bonheur,
Voila, j'utilise Excel comme base de donnée, j'ai une lettre type sous Word dans laquelle j’insère des données de ma base Excel, jusque là ca va,
Mon problème est d'arriver a enregistrer mon doc Word sous le format PDF,
(je précise, j'ai PDFCreator, référencé à la fois dans Word et dans Excel)
J'aimerais que mon doc Word reste en tache de fond,
En cherchant j'avais trouvé cela :

Code :

1
2
3
4
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="mon_fichier.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

je m'étais contenté de changé ActiveSheet en WordDoc ou WordApp
Mais j'ai un message d'ereur : Argument nommé introuvable sur Type:=

Si quelqu'un peu m'aider, merci.

[kiki29]

Salut, 2010 intégre en natif le format PDF donc PDFCreator ne te sert à rien,
de plus tu as l'enregistreur de macros pour une syntaxe correcte, éventuellemnt à optimiser à la main

[Naaby]

Ok .....
Pour ce qui concerne l'enregistreur de macro, cela ne marche que si tu restes sur l'appli.....
Je suis peut être une buse, mais enregistrer une feuille Excel en PDF (même en passant par une macro), j'ai trouvé
Mon problème est que je créer un doc WORD que je voudrais enregistrer en PDF en utilisant ma macro EXCEL ....

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
Sub CommandButton1_Click()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim Fichier As String
    Dim i As Byte
 
    'Definition du fichier
    Fichier = "E:\Mes documents\TEST MACRO\Doctype.doc"
    'ouvre session word
    Set WordApp = CreateObject("word.application")
    'ouvre document Word
    Set WordDoc = WordApp.Documents.Open(Fichier)
    'word masqué pendant l'operation
    WordApp.Visible = False
    'les signets du document Word sont nommés Signet
    WordDoc.Bookmarks("SignetDate").Range.Text = Format(Now, "dd/mm/yyyy")
    WordDoc.Bookmarks("Prénom").Range.Text = Sheets("Feuil1").Range("B2").Value
 
    'affiche le document Word
    WordApp.Visible = True
 
    'Sauvegarde en PDF
    WordDoc.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\Mes documents\TEST MACRO\Doc.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
 
End Sub