Discussion :

[Aurianelm]

Bonjour tout le monde !

J'ai un petit souci lors de la création de mon PDF... Voici le code que j'ai écrit

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Sub Focus_Portefeuille()
 
Dim rep As String, fichier As String, login As String
 
rep = "C:\PERSO\"
fichier = "foyers_portagri-v7.xls"
fichier2 = "Maquette FOCUS v1.xls"
 
'Rempli le 1er tableau Données GRC non complétées
 
For i = 1 To 2
    Workbooks.Open Filename:=rep & fichier2
    Workbooks.Open Filename:=rep & fichier
    Workbooks(fichier).Activate
    Sheets(1).Range("A1").Offset(i, 0).Copy
    Workbooks(fichier2).Activate
    Sheets(2).Range("A6").Offset(i, 0).PasteSpecial
    Workbooks(fichier).Activate
    Sheets(1).Range("C1:L1").Offset(i, 0).Copy
    Workbooks(fichier2).Activate
    Sheets(2).Range("B6").Offset(i, 0).PasteSpecial
 
 
'Met le Login Portefeuille
 
Workbooks(fichier).Activate
Sheets(1).Range("B" & i + 1).Copy
Workbooks(fichier2).Activate
Sheets(2).Range("A114").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets(2).Range("A136").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets(2).Range("A156").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
login = ActiveWorkbook.Range("A114").Value
 
ActiveWorkbook.SaveAs Filename:= _
        "" & rep & login & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator sur Ne01:", Collate:=True
 
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
 
With pdfjob
    If .cStart("/NoProcessingAtStartup") = False Then
        MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
        Exit Sub
    End If
    .cOption("UseAutosave") = 1
    .cOption("useAutisaveDirectory") = 1
    .cOption("Autosavedirectory") = rep
    .cOption("autosavefilename") = "Portefeuille" & login & ".pdf"
    .cOption("AutoSaveFormat") = 0
    .cPrinterStop = False
End With
 
Do Until pdfjob.cCountOfPrintjobs = 1
    DoEvents
Loop
 
pdfjob.cPrinterStop = False
 
Do Until pdfjob.cCountOfPrintjobs = 0
    DoEvents
Loop
 
With pdfjob
    .cDefaultPrinter = DefaultPrinter
    .cClearCache
    .cPrinterStop = True
    .cClose
End With
 
Set pdfjob = Nothing
 
ActiveWorkbook.Close
Next i
 
MsgBox ("OK livrables sous ce répertoire")
 
End Sub

Et donc à la fin il m'affiche le message : "Can't initialize PDFCreator", message que je lui ai demandé d'afficher s'il ne peut pas créer le PDF. Je ne vois pas où est mon erreur.

Merci !!

[Aurianelm]

En fait c'est bon ! Pour ceux qui chercheraient une réponse :

Le PDFCreator restait ouvert dans le gestionnaire des tâches, c'est pour ça que lors de la création du 2ème PDF ça ne fonctionnait plus. Pour que vous puissiez créer plusieurs fichiers PDF à suivre sans intervenir manuellement, il vous suffit de retirer le .cDefaultPrinter = DefaultPrinter. Vous aurez donc :

Code :

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

1
2
3
4
With pdfjob
    .cClearCache
    .cPrinterStop = True
    .cClose

Au lieu de :

Code :

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

1
2
3
4
5
With pdfjob
    .cDefaultPrinter = DefaultPrinter
    .cClearCache
    .cPrinterStop = True
    .cClose

Voilà ! Bon week-end