Discussion :

[GodGives]

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 :

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

Dim doc_pdf as AcroPDF

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

Code :

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

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:

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

ou

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!!!

[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.

[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!

[GodGives]

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

[sovo]

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

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

Code :

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

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")
.....

[sovo]

Voila ceque j'ai fait.

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
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

[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

[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