Discussion :

[Tanoak_LaCapuche]

Bonjour à tous.

Voilà c'est la suite de mon post précédent, j'ai un soucis fonctionnel qui bloque ma macro word.
Je génère des fichiers .pdf à partir d'un doc word.
Voici le code associé.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Sub Tst_PdfCreator()
 
Dim JobPDF As Object
Dim sNomPDF As String
Dim sNomPS As String
Dim sCheminPDF As String
Dim Ar() As String, Cpt As Long, i As Long
Dim DefaultPrinter As String
 
    DefaultPrinter = Application.ActivePrinter
    Application.ActivePrinter = "PDFCreator"
 
    sNomPS = "Essai_EB.ps"
    sNomPDF = nom_fich
    sCheminPDF = "C:\wamp\www\Aide\fiches\Citadis"
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
 
    With JobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF
 
        .cOption("AutosaveStartStandardProgram") = 1
        .cOption("UpdateInterval") = 0
 
        '0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cOption("AutosaveFormat") = 0
 
        .cClearCache
    End With
 
    Application.PrintOut , Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1
 
    'Fichier dans la file d'attente
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False
 
    'Attendre que la file d'attente soit vide
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    JobPDF.cClose
 
    Set JobPDF = Nothing
    Application.ActivePrinter = DefaultPrinter
 
End Sub

Voilà le problème est que lors de l'éxécution, une fois le .pdf créé il s'ouvre automatiquement.
Et une fois que j'ai 50 fichiers .pdf d'ouverts, il n'est plus possible d'en ouvrir ou d'en imprimer d'autres.

Savez-vous comment faire pour empecher l'ouverture du fichier quand il est créé ?
Ou sinon comment il est possible de le fermer ?

Merci d'avance.

[78chris]

Bonjour

Il y a très certainement une option de Pdf creator qui précise si le fichier doit ou non s'ouvrir.

J'utilise maintenant un autre logiciel où c'est le cas mais, de mémoire, j'avais aussi cette possibilité dans pdfcreator.

[Tanoak_LaCapuche]

Oui je pense aussi, mais pas moyen de trouver ça quelque part..

Au final j'ai "kill" l'application. Pas très propre mais ça marche.