Discussion :

[Minou_]

Même problème que louveurMartin dans cette discussion.

access 2000 sur XP
objectif : par l'intermédiaire d'un bouton, activé une boucle et produire des pdf (opération déjà réalisée en 2012 avec bien sûr l'ancienne version de pdf creator).

Problème : référence pdf creator activée
(et d'autres réf PDF avec ou sans)

mais le type dans la déclaration suivante n'est pas défini
Dim pdfc As PDFCreator.clsPDFCreator

J'ai essayé également de sélectionner pdfcreator.exe mais sans succès il m'indique la même erreur...
J'ai cherché d'autres librairie mais bon...
étape suivante retrouvé une vieille version de pdfcreator pour vérifier.

---
Edit : Prendre une ancienne version comme la suivante :
http://www.freewarefrance.com/186,te...r-windows.html

Youpi, ça fonctionne comme dans le bon vieux temps (ce qui soit dit en passant permet de générer plus de 200 fiches, autant dire que le stagiaire est content... )
la nouvelle version ne doit pas être compatible avec mon vieux access et peut être le access 2007 ...

[bobbretagne]

Bonjour,

j'ai le même probleme avec Office 2010.
Le probleme ne vient pas d'Office, Excel mais de PDFCreator.
je n'ai pas trouvé comme empecher cette erreur ormis remettre une version 1.7.3 de PdfCreator

Si quelqu'un a la solution ....
Merci

[argyronet]

Bonjour, (paramètre non facultatif)

Que donne cette fonction dans le debugger ?

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
 
Public Function IsPDFCreatorInstalled() As Boolean
'---------------------------------------------------------------------------
' Procedure     : IsPDFCreatorInstalled
' DateTime      : 19/05/2015
' Author        : Jean-Philippe AMBROSINO
' Purpose       : This Function is used to verify if PDFCReator is usable
'...........................................................................
' Parameters    : None
 
' Return Codes  : Boolean = True if installed
'...........................................................................
' Notice        :
'---------------------------------------------------------------------------
Dim oPDFJob                                            As Object
 
    On Error GoTo L_ErrIsPDFCReatorInstalled
    Set oPDFJob = CreateObject("PDFCreator.clsPDFCreator")
    IsPDFCreatorInstalled = (Not oPDFJob Is Nothing)
    On Error GoTo 0
L_ExIsPDFCReatorInstalled:
    Set oPDFJob = Nothing
    Exit Function
 
L_ErrIsPDFCReatorInstalled:
    Resume L_ExIsPDFCReatorInstalled
 
End Function

Code Fenêtre d'exécution :

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

1
2
 
? IsPDFCreatorInstalled()