Discussion :

[HASSAN.NAQY]

Bonjour,
J'ai une table ARRETE qui comprend, entre autre, un champs appelé aussi ARRETE de type "pièce jointe" dans le quel je stock des documents au format PDF moyennant un formulaire.
Après avoir joint le Pdf correspondant par le formulaire j'aimerai le voir affiché dans un état appelé E_ARRETE mais ça n'affiche que l'icone pdf voir photo ci-dessous:






Je dois après cliquer sur l'icone puis sélectionner le fichier et enfin cliquer sur afficher pour voir le document pdf comme illustré sur les photos ci-dessous:






Ma question est : y a-t-il une possibilité pour voir directement le document pdf dés l'affichage de l'état? et merci.

[Zekraoui_Jakani]

Vous pouvez en prendre une photo (image) que vous pouvez afficher sur l'onglet "e_Arrete"

[HASSAN.NAQY]

Oui mais j'ai des milliers de documents PDF que prefere garder dans ce format

[tee_grandbois]

bonsoir,

Après avoir joint le Pdf correspondant par le formulaire j'aimerai le voir affiché dans un état appelé E_ARRETE mais ça n'affiche que l'icone pdf

le type de champ pièce jointe n'est pas du tout prévu pour être utilisé dans un état et en toute logique cela fonctionne exactement comme une pièce jointe dan un mail (on clique dessus pour l'ouvrir).
Donc ce type de champ est plutôt réservé pour de l'archivage et à éviter pour tout autre utilisation.

[HASSAN.NAQY]

Bonsoir tous le monde

Le probléme de l'affichage du Pdf est résolu grâce à la création d'un bouton AFFICHER qui utilise la fonction "ShellExecute" sur l'évenement Clik.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub AFFICHER_Click()
Dim Chemin, Fichier, Absolu As String
Absolu = "C:\Users\lenovo\Desktop\PROGICIEL HMR\ARRETES PDF\"
Fichier = Me.REF_EXPERTISE.Value
If Fichier <> "" Then
Chemin = Absolu & Fichier & ".pdf"
ShellExecute Me.hwnd, vbNullString, Chemin, "", vbNullString, 1
Else
MsgBox "Arrêté introuvable"
End If
End Sub

avec :
Absolu reçoit le nom du répertoire ou se trouve le pdf, dans mon cas c'est :"C:\Users\lenovo\Desktop\PROGICIEL HMR\ARRETES PDF\"
Fichier reçoit le nom du Pdf, dans mon cas c'est " Me.REF_EXPERTISE.Value " au fait "REF_EXPERTISE" et un champ de l'état qui reçoit le nom du fichier Pdf par grâce à la fonction Rechdom, en bref :"REF_EXPERTISE" n'est autre que le nom de mon fichier Pdf.
Chemin est la concaténation de Absolu et de Fichier pour avoir l'adresse compléte du fichier.

Par ailleurs pour les systémes windows 64bit, il faut insérer le code, ci-dessous, dans un module ( dans un module et pas dans le code VBA de l'état ou du formulaire);

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 ceci marche à merveille si le fichier existe : sur un seul Clik sur le bouton AFFICHER le Pdf d'affiche.
Par contre si le fichier n'existe pas dans le répertoire, le message "Arrêté introuvable" prévu par la dernierre partie du code ne s'affiche pas et je ne sais pas pourquoi.

Si quelqu'un peut voir le probléme de ce message je lui serais trés reconnaissant.
Et merci à tous le monde.

[tee_grandbois]

bonsoir,

Le probléme de l'affichage du Pdf est résolu grâce à la création d'un bouton AFFICHER qui utilise la fonction "ShellExecute" sur l'évenement Clik.

oui mais jusque là, le problème concernait l'affichage d'une pièce jointe dans un état ce n'est pas la même chose que cliquer dans un formulaire.

Si quelqu'un peut voir le probléme de ce message je lui serais trés reconnaissant.

il faut tester le chemin avec Dir() avant d'exécuter le ShellExecute:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub AFFICHER_Click()
Dim Chemin, Fichier, Absolu As String
Absolu = "C:\Users\lenovo\Desktop\PROGICIEL HMR\ARRETES PDF\"
Fichier = Me.REF_EXPERTISE.Value
 
Chemin = Absolu & Fichier & ".pdf"
If Dir(Chemin) <> "" Then
    ShellExecute Me.hwnd, vbNullString, Chemin, "", vbNullString, 1
Else
    MsgBox "Arrêté introuvable"
End If
End Sub

[HASSAN.NAQY]

Un grand merci Monsieur Tee-grandbois, vous m'avez toujours été d'un grand secours le long du développement de mon application.
Je vous suis trés trés reconaissant.