Discussion :

[benjisan]

Bonjour à tous,

Voici mon problème, je dois convertir un fichier word en pdf en utilisant le distiller d'acrobat.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim wdApp As Object
Dim FileNamePDF As String
 
Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Open ("C:\Documents and Settings\ben\My Documents\ORM\Commentaires_062007.doc")
FileNamePDF = "C:\Documents and Settings\ben\My Documents\ORM\commentaire.pdf"
wdApp.DisplayAlerts = wdAlertsNone
wdApp.PrintOut , , , FileNamePDF, , , , , , , True
wdApp.ActiveDocument.Close
wdApp.Quit
Set wdApp = Nothing

Alors il crée bien le fichier pdf mais impossible de l'ouvrir car il m'indique que le fichier est probablement corrompu.

Est ce que je ne devrais pas d'abord sélectionner le document word avant de le convertir ???

Auriez-vous une petite idée ???

D'avance je vous remercie

Benjisan

[Domi2]

Bonjour,

Pas si simple peut-être.

Regarde si cette discussion peut t'aider.

Domi2

[benjisan]

Merci pour ta réponse Domi2,

J'ai déjà regardé lu le post, mais je trouve mon système nettement plus simple.

Le pire c'est que mon système a fonctionné et ensuite j'ai supprimé mon code et maintenant je n'arrive plus à faire la même chose qu'hier.

Je pense que je dois simplement activer le document word avant de le transfèrer en pdf, par contre

Code :

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

wdApp.ActiveDocument

Ne fonctionne pas !!!

Je vais quand même continuer à chercher

Encore merci

[benjisan]

Voici le code que j'utilise pour transfèrer un document Word en PDF

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
wdFichierPS = "C:\Documents and Settings\ben\My Documents\ORM\test.ps"
wdFichierPDF = "C:\Documents and Settings\ben\My Documents\ORM\comment.pdf"
 
wrd.Visible = False
wrd.ScreenUpdating = False
wrd.ActivePrinter = "Adobe PDF"
Set doc = wrd.Documents.Open("C:\Documents and Settings\ben\My Documents\ORM\Commentaires.doc")
doc.PrintOut , , , wdFichierPS, , , , , , , True
PauseTime = 4
start = Timer
Do While Timer < start + PauseTime
    EnCours = Timer
    DoEvents
Loop
doc.Close False
wrd.Quit False
Set doc = Nothing
Set wrd = Nothing
acr.bShowWindow = False
acr.FileToPDF wdFichierPS, wdFichierPDF, ""
Set acr = Nothing
Kill wdFichierPS
Kill "C:\Documents and Settings\ben\My Documents\ORM\comment.log"

A bientôt et encore merci d'avoir pris le temps de lire mon post

Benjisan