Bonjour,

j'ai téléchargé http://heureuxoli.developpez.com/office/word/doc2pdf et remercie au passage le développeur...Code que j'ai adapté pour tester mais j'ai un souci :

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
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub macro1()
    Dim oldPrinter As String
    Dim stChemin As String
    Dim stNom As String
    Set PDFCreator1 = New clsPDFCreator
    ' Affichage de la fenêtre de PDF
    Shell "C:\Program Files\PDFCreator\PDFCreator.exe", vbNormalFocus
    oldPrinter = ActivePrinter
    'On va mettre en mémoire dans une
    'variable le nom de l'imprimante par défaut
    ActivePrinter = "PDFCreator"
    ChangeFileOpenDirectory "C:\AGARDER\"
    Documents.Open Filename:="20090649-06-03-2009.doc"
 
    'les option PDFCreator
 
    With PDFCreator1
       .cOption("UseAutosave") = 1
       .cOption("UseAutosaveDirectory") = 1
       .cOption("AutosaveDirectory") = "c:\agarder" 'stChemin
       .cOption("AutosaveFilename") = "20090649-06-03-2009.pdf" 'stNom
       .cOption("AutosaveFormat") = 0                            ' 0 = PDF
       .cStart
       .cClearCache
       DoEvents
       Temps1 = Now + TimeValue("00:00:10")
       While Now < Temps1
        ' permet que les options pdf se mettent en place....
       Wend
 
       ActiveDocument.PrintOut Background:=True 'false
       DoEvents
       .cPrinterStop = False
    End With
 
 
    PDFCreator1.cClose
    ActivePrinter = oldPrinter
    ' Change l'imprimante par défaut
 
End Sub
En fait, j'ouvre bien mon .doc qui est dans c:\agarder, le moniteur d'impression de pdfcreator s'affiche avec le nom du fichier proposé, par contre je me retrouve avec le répertoire de mes documents par défaut..Il y a donc un problème comme si les options ne fonctionnaient pas...Enfin je ne veux pas que le moniteur pdfcreator s'affiche pour pouvoir boucler sur un tableau de fichiers...

Quelqu'un a une idée ?

Merci de votre aide

JPaul