transformer word en pdf

[thobass]

Bonjour,

Après avoir rechercher divers solutions a mon petit soucis sur le forum et sur internet en général, je n'arrive pas a trouver de solution et cela m'agace ...

J'ai un document word issu d'un publipostage de N pages, je souhaite convertir les pages en fichier PDF de la manière suivante:
1 page ou plusieurs concerne un client, mon programme fait bien le repérage et je sais quelle page concerne qui et combien de page la concerne (1 ou plusieurs), ma conversion PDF fonctionne correctement et me créer autant de fichier PDF que j'ai de client concerné. enfin bref toute cette partie la fonctionne correctement.

Mon problème est que les parametres pour enregistrer le document (Dossiers + nom de fichier) ne sont pas passé à PDFCreator, par concéquent les documents ne sont pas au bon endroit et en plus ne portent pas le nom que je leur donne en paramêtre.

De plus,PDFCreator parfois BUG et ne me créer qu'un seul fichier, en fait il ne tient pas du tout compte de mes parametres transmis, et prend en compte les parametres qui lui sont indiqués en "dur" dans le nom de fichier et le repertoire par défaut, quand j'efface tout ca dans PDFCreator cela refonctionne... pendant un certain temps.

Voici la partie de mon code concerné:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
i = 1
cpt = 1
 
While i < lig_numclub
 
    num_club = tab_numclub(i).ret_numclub
    occurence = tab_numclub(i).ret_nboccur
 
    Dim PDFCreator1 As New clsPDFCreator
    OldPrinter = ActivePrinter
 
    ActivePrinter = "PDFCreator"
 
    stChemin = "D:\Documents and Settings\tbasset\Bureau\27092007\"
 
    stNom = num_club
    rangedeb = "p1s" & cpt
    rangefin = "p1s" & cpt + occurence - 1
 
    ' impression de la lettre au format PDF
 
    With PDFCreator1
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = stChemin
        .cOption("AutosaveFilename") = stNom
        .cOption("AutosaveFormat") = 0 ' 0 = PDF
        .cClearCache
        DoEvents
        ActiveDocument.PrintOut_
        Range:=Word.WdPrintOutRange.wdPrintFromTo, From:=rangedeb,_
        To:=rangefin, PrintToFile:=False
        DoEvents
        .cPrinterStop = False
    End With
 
    i = i + 1
    cpt = cpt + occurence
 
    PDFCreator1.cClose
    Set PDFCreator1 = Nothing
 
Wend
 
 
  ActivePrinter = OldPrinter

Voila, en esperant que quelqu'un puisse m'aider.

Thomas