Création dynamique d'un object acropdf

Version imprimable

26/02/2008, 09h54
GodGives

Création dynamique d'un object acropdf

Bonjour à tous!

J'aimerais créer un objet acropdf, dynamiquement sur un formulaire, et pouvoir l'utiliser pour ouvrir un document pdf.

J'ai donc déclarer la variable comme suit:

Code:

Dim doc_pdf as AcroPDF

Ensuite, je dois attribuer à cette variable, une instance de l'objet acropdf, en utilisant l'instruction suivante:

Code:

Set doc_pdf = New Acro ...

Je sais comment faire cette instanciation puisque j'ai utilisé acroapp, acroavdoc, acroaxdoc, acropddoc mais j'ai un message d'erreur qui dit:

Citation:

Le composant activex ne peut pas créer l'objet

ou

Citation:

Type incomptable

Quelqu'un a une idée de ce qu'il faut mettre pour cette instanciation?

Je rappelle que j'ai déjà tout ce qu'il faut pour avoir le composant AcroPDF dans ma boîte d'outils seulemnt que je dois générer l'objet dynamiquement.

Merci d'avance!!!
26/02/2008, 10h59
sovo

il y a eu des discussions a ce sujet (je crois que j'avais ouverte une d'ailleur). Donc esssai de faire une recherche avec comment mot cle : controle dynamique et mon pseudo.
26/02/2008, 11h09
GodGives

J'avais fait une recherche avec le mot acropdf pour élargir un peu les résultats et j'ai trouvé!

Mais je vais reéssayer!
26/02/2008, 12h28
GodGives

J'ai assez de mal à retrouver cette discussion! est-ce que tu peux mieux m'orienter?

Deja tu peux jetter un coup d'oeil a la FAQ

Voila ce que j'ai fait (pour test),
Code:

1 2 3 4 5 Dim PDF as Pdflib.pdf 'Car moi j'ai plutot le fichier pdf.ocx Set PDF = Me.Controls.Add("PdfLib.Pdf","CtlPdf") .....

Voila ceque j'ai fait.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
'With event pour la gestion des evenements
Dim WithEvents PDF As VBControlExtender
 
Private Sub Form_Load()
    'Licenses.Add "PDF.PdfCtrl.6"
    'J'ai la version 6 donc pour les autres version faire PDF.PdfCtrl.NumVersion
    Set PDF = Form1.Controls.Add("PDF.PdfCtrl.6", "DynPdf")
 
    PDF.Visible = True
    PDF.Top = 10
    PDF.Left = 10
    PDF.Height = 10500
    PDF.Width = 8500
 
    PDF.object.src = "C:\Guide2.pdf"
End Sub

26/02/2008, 17h01
GodGives

je ne connais pas d'avance la version d'adobe qui est utilisé sur les postes qui auront à utiliser l'application. C'est tout ce qui m'embêtera
26/02/2008, 17h06
GodGives

Je pense que j'aurai beaucoup de problèmes avec ce code puisque ce n'est pas pdf.ocx que j'utilise mais plutôt acropdf.ocx

J'ai réussi à adapter le code au controle acropdf.ocx le voici:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim doc_pdf As AcroPDFLibCtl.AcroPDF
Private Sub Form_Load()
Set doc_pdf = Me.Controls.Add("AcroPDF.PDF.1", "CtlAcroPdf")
With doc_pdf
    .Left = 0
    .Top = 0
    .Width = Me.Width
    .Height = Me.Height
    .ZOrder
 
    .LoadFile App.Path & "\fichier.pdf"
    .gotoFirstPage
    .setZoom 100
    .Width = Me.Width
    .Height = Me.Height
    .Visible = True
End With
 
End Sub

Maintenant, ça marche parfaitement.

Merci à toi sovo :king:!