[VBA-Excel]transformer un fichier word en .pdf

**Junness** · 20/07/2006, 16h48

Bonjour,

voila mon problème :
dans une macro excel, je dois transformer un fichier word en pdf. Pour cela j'ai ce code :

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
Sub test()
 
    Dim wdApp As Object
    Set wdApp = CreateObject("word.application")
 
    wdApp.Documents.Open ("C:\julien\données origines\reports\test.doc")
    wdApp.ActivePrinter = "PDFCreator"
 
    Dim FileNamePDF As String
    FileNamePDF = "C:\julien\données origines\reports\resultat.pdf"
    wdApp.DisplayAlerts = wdAlertsNone
    wdApp.PrintOut , , , FileNamePDF, , , , , , , True
 
    PauseTime = 4
    Start = Timer
    Do While Timer < Start + PauseTime
        EnCours = Timer
        DoEvents
    Loop
 
    wdApp.ActiveDocument.Close
    wdApp.Quit
    Set wdApp = Nothing
End Sub

le fichier au format pdf se créé, mais lorsque je vais l'ouvrir, j'ai un message d'erreur : adob reader ne peut ouvrir le fichier etc .
Je cherche depuis tout à l'heure mais l'étincelle de génie ne vient pas m'aider à trouver la solution

merci de votre aide

**SfJ5Rpw8** · 20/07/2006, 16h56

je dirai que ton probléme viens d'adobe.... voir [VBA-E] XLS vers PDF ..
il doit bien avoir un moyen pour configurer cette imprimante "virtuelle" pour qu'elle imprime vers un fichier...mais..

**Junness** · 20/07/2006, 16h59

merci je vais regarder ça

**Nicomart** · 21/07/2006, 09h55

Bon, ça ne conviendra sans doute pas, mais tu sais qu'en ouvrant ton fichier Word via Oo, tu peux l'exporter en Pdf ?

**marsupoilu** · 21/07/2006, 11h05

salut,
G déja eu le même pb
Essaye

Code :

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

wdApp.PrintOut OutputFileName:=FileNamePDF, PrintToFile:=False

plutot que

Code :

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

1
2
 
wdApp.PrintOut , , , FileNamePDF, , , , , , , True

Sorry si ca marche pas

++

**Junness** · 21/07/2006, 11h44

après avoir essayer plusieurs modifications dont celle de marsupoilu (

), et aussi essayer de modifier la config de l'imprimante virtuelle, ça ne marchait toujours pas. Donc je suis passé par la solution de Nicomart.
Donc pour moi le problème est résolu, mais j'essaierai quand meme de voir si il y a pas une autre méthode (quand j'aurais un peu de temps

)

merci à vous

**SfJ5Rpw8** · 21/07/2006, 11h49

Envoyé par Junness

après avoir essayer plusieurs modifications dont celle de marsupoilu (

), et aussi essayer de modifier la config de l'imprimante virtuelle, ça ne marchait toujours pas. Donc je suis passé par la solution de Nicomart.
Donc pour moi le problème est résolu, mais j'essaierai quand meme de voir si il y a pas une autre méthode (quand j'aurais un peu de temps

)

merci à vous

je comprends pas ... si tu est passé par la méthode à nicomart ... tu n'as rien automatisé.. tu n'avais pas besoin de code VBA pour créer ton Pdf, il te suffit d'imprimer vers ton imprimante virtuelle

**Junness** · 21/07/2006, 12h40

en fait je voulais automatiser, mais comme je n'ai pas beaucoup de temps à consacrer à cette fonction et comme la personne qui va utiliser mon projet m'a dit que cette fonction (word en pdf) devenait une option à faire en bonus (si j'ai le temps )..... je passe donc par une solution de facilité

mais j'y reviendrait sur cette fonction, .... j'aime pas rester bloqué sur quelques chose comme ça