Discussion :

[fredpertuy]

Bonjour,

Je suis entrain de faire une base de données et je souhaiterai importer des PDF et de pouvoir les visualiser

Quelle fonction utilisée?

Merci d'avance pour votre aide

[loufab]

Bonjour,

L'activeX livré avec Acrobat Reader devrait faire l'affaire.

Ouvre ton formulaire en mode création.
Ouvre la liste des ActiveX (le X rouge avec 2 courbes noires)
Choisis Adobe Acrobat Control for ActiveX
Puis Ok

Règle les dimensions du cadre.
En fin de propriétés il en a une qui se nomme src, c'est là que tu mets le nom et le chemin complet vers ton PDF.

Tu peux le faire par VBA.

Code :

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

me.moncontrole.src = "c:\temp\monfichier.pdf"

Cordialement,

[fredpertuy]

Merci pour le début de code

Mais dans mon cas de figure le chemin est different et donc dépends de ma variable text "Scan" qui m'indique le lien de mon pdf

Comment faire pour que le controle X ouvre l'adresse indiqué dans letxtbox "Scan"

[loufab]

Bonjour,

Code :

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

...=me.scan

tout simplement !

[fredpertuy]

Quand j'indique en bas dans les propriétés sur la ligne src "me.Scan" le paramêtre reste pas.

Comment ca se fait ?

[Tofalu]

C'est à modifier en VBA

[fredpertuy]

Voila mon code de mon état nommé PDF

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
If Len(Scan) > 0 Then
 
Me.AcroPDF0.src = (Me.Scan)
 
End If
 
End Sub

Et le code de mon bouton de visualisation de mon formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande176_Click()
Dim stDocName As String
If Len(Scan) > 1 Then
    stDocName = "PDF"
    DoCmd.OpenReport stDocName, acPreview, , "[N°]=" & Me.N°
 
Else
MsgBox "Veuillez ajouter le DUE/Registre du personnel/Contrat d'intérim"
 
End If
 
End Sub

[fredpertuy]

Quelle modif dois je faire?

[fredpertuy]

quand je réalise ce code, l'état s'ouvre bien mais la feuille est blanche
donc pas de visualisation du PDF, je bloque :'(

[User]

Salut,

Ta demande de départ c'est visualiser un pdf dans un formulaire, donc ton contrôle actveX tu doit l'insérer dans ton formulaire comme on te l'a proposé

[fredpertuy]

J'ai essayé en suivant les méthodes à la fois à travers un formulaire mais vu que cela fonctionnait pas j'ai essayer dans un état mais le résultat est le même

Le but étant de pouvoir visualiser un pdf localiser dans mes dossiers (soit à travers un formulaire ou soit à travers un Etat).

J'ai beau relire et voir ce qui cloche avec le code ci dessus je vois pas

[User]

Salut,

Sur quel évènement, dans ton formulaire, as-tu mis le code:

Code :

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

me.moncontrole.src = me.scan

As-tu vérifié le contenu de ta zone de texte scan avant l'affectation avec:

Code :

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

msgbox(Me.scan)

A+

[fredpertuy]

J'ai vérifié selon tes 2 remarques :

Selon ta première remarque sur l'activation :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
If Len(Scan) > 0 Then
 
Me.AcroPDF0.src = (Me.Scan)
 
End If
 
End Sub

Et selon ta 2ème remarque

Le Lien fonctionne bien dans mon ETAT