Discussion :

[alea83]

Bonjour à tous,

Je dois afficher des diplomes dans un état access. J'ai cherché sur le net et surtout sur ce site et j'ai trouvé un post, mais malheureusement j'ai un message "Sub ou Function non définie" qui se bloque sur ShellExecute

J'ai mis le code ci-dessous dans un module comme indiqué

Code :

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

1
2
3
Public Function OuvrirShellExecute(strFichier, Chemin_fichier)
   ShellExecute 0, "open", strFichier, vbNullString, Chemin_fichier, 1
End Function

Et celui ci dessous au formatage de mon état ou se trouve le champ NomDoc qui contient mon

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)
Dim Chemin_fichier As String
Chemin_fichier = [NomDoc].Value
 
If Dir(Chemin_fichier) <> "" Then
    ShellExecute Me.Hwnd, vbNullString, Chemin_fichier, "", vbNullString, 1
Else
    MsgBox "Fichier introuvable"
End If
End Sub

Dans cet état j'ai un contrôle Image qui reprend le chemin, faut il un autre contrôle ?

Merci d'avance pour votre aide.

[loufab]

Bonjour,

Il faut déclarer l'API ShellExecute car ce n'est pas une instruction VBA ou ACCESS.

Cordialement,

[alea83]

Bonjour,

Merci je l'ai fait et en effet ca m'ouvre le document dans internet, mais ca ne le met pas dans mon cadre image.
Que puis je faire ?
Merci pour votre aide.

[tee_grandbois]

bonjour,
si c'est un contrôle de type image, il faut simplement mettre dans la propriété "Source contrôle" le nom du champ de la table ou requête source de l'état: NomDoc et "Mode affichage" : Zoom.
Attention, la qualité peut être dégradée selon le choix du mode d'affichage de l'état : "Aperçu avant impression" ou "Mode état", bizarrement ce dernier mode est de meilleure qualité:



je n'ai aucune idée du pourquoi ... j'ai essayé les autres modes d'affichage de l'image (Echelle et Découpage) sans plus de succès.
Si quelqu'un a l'explication ...

[tee_grandbois]

par contre, l'état imprimé en pdf est de bonne qualité, ou lorsque le zoom de l'aperçu est supérieur à 250%
Etat_Images_1.pdf

[loufab]

Bonjour,

Merci je l'ai fait et en effet ca m'ouvre le document dans internet, mais ca ne le met pas dans mon cadre image.

C'est le but du shell, ouvrir le document son lecteur par défaut. Donc chez toi le navigateur, chez un autre Acrobat Reader et encore un autre SumatraPDF.

Pour le mettre dans un cadre image ce n'est pas du tout comme ça qu'on procède. Avant d'utiliser une instruction il faut 2 choses :

1. Savoir si elle correspond à ce que l'on veut faire
2. Etudier comment elle doit être utilisée.

Pour afficher un pdf dans l'ihm (forms ou report) il faut utiliser soit un composant ActiveX qui le permet soit utiliser le composant IE/EDGE qui se chargera d'invoquer son lecteur PDF.
Dans les 2 cas il faut programmer en VBA.

Cordialement,

[tee_grandbois]

bonsoir loufab,
en effet, alea83 n'a pas précisé le type de document qu'elle voulait afficher, j'ai pensé à JPG et PNG mais pas à PDF ...

[alea83]

Merci pour vos réponses, oui en effet c'est un pdf je n'ai pas de soucis avec image jpeg ou png...

[loufab]

Donc soit l'activeX Acrobat Reader ce qui oblige à installer le reader sur chaque poste, soit utiliser le composant IE/EDGE qui lui toujours installé sur Windows.

Tu a un office 2013, as-tu pensé à installer une version un peu plus récente ?

[alea83]

Bonjour,

Je vais installé la base dans un réseau d'une société donc impossible pour l'instant d'installer une version plus récente.
Quand à acrobat reader je ne sais pas, je vais me renseigner.
Merci pour votre aide, et si vous aviez un lien vers un tuto pour pouvoir m'en inspirer selon les réponses du service informatique..