Double clique zone de liste ouvre la pièce jointe correspondante

Bonsoir,

J'ai actuellement un formulaire qui me permet d'enregistrer, entre autre, un compte rendu sous forme de pièces jointes, mais également un objet, une date, etc. Ainsi qu'une zone de liste en dessous afin d'y retrouver l'ensemble de mes enregistrements comme ceci :

Pièce jointe 404906

Je souhaiterais, lorsque je double clique sur une ligne de ma zone de liste, par exemple sur "Test n°1" que cela m'ouvre la pièce jointe associé.

Comment puis-je réaliser cela ?

D'avance, merci pour vos réponses.

Cordialement.

Bonjour,

Voici une procédure qui ouvre le fichier contenu dans la chaine fic avec le programme windows par défaut (selon son type) :

Code:

---

1 2 3

Private Sub Form_DblClick(Cancel As Integer) ShellExecute 0&, vbNullString, fic, vbNullString, vbNullString, vbNormalFocus End Sub

---

Elle nécessite la déclaration suivante dans un module :

Code:

---

1 2	Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String _ , ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

Bonjour Nico84 et merci pour votre réponse.

J'ai effectué ce que vous m'avez indiqué, et dans un premier, j'ai obtenu ceci (afin d'aider ceux qui se baseront sur ce poste) :

Pièce jointe 405431

En rajoutant

Code:

---

PtrSafe

---

Devant

Code:

---

Function

---

Comme ceci :

Code:

---

1 2	Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String _ , ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

L'erreur de compilation disparaît.

Cela fonctionne partiellement : Cela m'ouvre le dossier ou est contenu ma pièce jointe néanmoins, cela ne m'ouvre pas la pièce jointe. Y a t'il un moyen de corriger cela ou bien il n'y a que la possibilité d'ouvrir le dossier et non le fichier directement ?

Au vu du message d'erreur je pense qu'il serait plus judicieux d'adapter le code pour access 64 (j'ai access 32) ;)

Sous Access 32, avec le code que vous m'avez fourni, si vous double cliquez, cela ouvre la pièce jointe et non le dossier ou elle se situe ?

J'ai adapté la déclaration pour Access 64 :

Code:

---

1 2 3 4

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As LongPtr, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

---

Pour le moment, cela continue de m'ouvrir le dossier et non la pièce jointe. Je vais voir comment adapter la procédure que vous m'avez indiqué.

Il n'y a pas un shell64.dll plutot ou un truc dans ce genre ???

J'ai modifié shell32.dll par shell64.dll et j'obtiens ceci :

Pièce jointe 405600

Citation:

---

Envoyé par Hugoo_

Sous Access 32, avec le code que vous m'avez fourni, si vous double cliquez, cela ouvre la pièce jointe et non le dossier ou elle se situe ?

---

Oui pour ouvrir un dossier c'est une autre syntaxe complètement différente

Que contient la variable fic lors de l'appel ? Est-ce un type de fichier pour lequel windows a un programme par défaut ?

Le compte rendu est sous forme de PDF, que j'ouvre habituellement avec Adobe Acrobat Reader DC

Alors si LpFile contient bien le nom du fichier complet lors de l'appel c'est un mystère de plus...

Comment ça " si LpFile contient bien le nom du fichier complet" ?