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

[Junness]

Bonjour,

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

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

[bbil]

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]

merci je vais regarder ça

[Nicomart]

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]

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

Code :

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

plutot que

Code :

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

Sorry si ca marche pas
++

[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

[bbil]

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]

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

[bbil]

si tu t'en sort pas avec adobe... tu as la solution PDFCreator... avec un tutoriel la :

Exporter vos états Access en PDF gratuitement par Cafeine

[Junness]

merci bien, si j'arrive à trouver une solution, je posterai le code