Discussion :

[JimmyB]

Bonjour tout le monde je voudrais savoir comment ouvrir un fichier PDF, a partir d'un double clic sur évenenement à partir d'une liste.

J'ai un formulaire recherche qui utilise une requete qui me me permet de faire des filtres. Dans la liste, qui affiche mes résultats, j'aimerais faire un double click pour faire ouvrir un PDF.

J'espère être clair

Merci de votre aide

[JimmyB]

j'vais me répondre

Code :

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

1
2
3
4
5
Private Sub lstResults_DblClick(Cancel As Integer)
 
******************************************
 
End Sub

Je veux ouvrir la colonne PDF de la table livre qui contient un hypertexte?

Quelqu'un a un idée??

[cbleas]

Vous pouvez mettre le code suivant. Il vous uffit alors de mettre dans la table le chemin du fichier à ouvrir.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Double
    nFileExtension As Double
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
 
''ouvrir un fichier quelconque à partir du moment ou il est assigné à un executable
 
Function OuvrirFichier(NomFichier)
On Error Resume Next
        OuvrirFichier = ShellExecute(0, "open", NomFichier, "", "", 10) '' SW_Minimize)
 
End Function

[JimmyB]

Est-ce possible de mettre juste du code dans procédure évenementielle sur double click? Remplacer mes étoiles par la fonction qui ouvre mes PDF.

J'ai une table qui s'appelle Livre et dans laquelle il y a un colonne qui a un lien hypertexte qui s'appelle PDF.

À partir de mon formulaire REQUETE LIVRE qui a une recherche muti-critère(lstResults), je veux double cliquer dedans pour ouvrir mes PDF.

Code :

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

1
2
3
4
5
Private Sub lstResults_DblClick(Cancel As Integer)
 
******************************************
 
End Sub

[cafeine]

Hello,

Essaie

Code :

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

Application.FollowHyperlink Me.lstResults.Columns(NumeroDeLaColonne)

NB : les numéros de colonnes démarrent à 0

[JimmyB]

Code :

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

1
2
3
4
5
Private Sub lstResults_DblClick(Cancel As Integer)
 
Application.FollowHyperlink Me.lstResults.Columns(7)
 
End Sub

J'ai une erreur sur .Columns

J'ai essayé tous les chiffres de colonnes au delà de mon nombre total de colonne.

Merci pour l'aide

[cafeine]

Au temps pour moi, c'est Column et non Columns.

D'autre part pourquoi mettre un nombre qui dépasse le nombre de colonnes ???


Ex :
Nom Prénom Matricule

Pour récupérer Matricule (3eme colonne)
Me.ControleListe.Column(2)

[JimmyB]

Effectivement c'est Column, et pourquoi ça ne marchais pas c'est que c'est déjà des liens hypertext alors il essayait d'ouvrir Le nom qu'affiche le lien et le chemin du lien avec au début# et è la fin#.

Est-ce possible de faire ouvrir le lien sans que je renomme les hypertexte déjà rentré?

Au lieu de

Code :

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

Application.FollowHyperlink

exist-il de quoi qui ouvre déjà mes liens hypertexte

Merci de ton aide, j'apprécie énormément

[Arkham46]

Bjr

essaye avec :

Code :

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

1
2
3
Private Sub lstResults_DblClick(Cancel As Integer)
   Application.FollowHyperlink HyperlinkPart(Me.lstResults.Columns(2), acAddress)  
End Sub

[JimmyB]

Merci Arkham46 ça fonctionne à merveille

Dernière petite chose: est-ce possible d'ouvrir mes PDF avec un autre logiciel qu'Acrobat qui est par défaut. J'ai déja un autre logiciel qui s'appelle image.exe et qui est par défaut sur Windows? Mais si je double click c'est Acrobat qui ouvre dans Access.

Merci encore!!!

[JimmyB]

Code :

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

1
2
3
4
5
Private Sub lstResults_DblClick(Cancel As Integer)
 
   Application.FollowHyperlink HyperlinkPart(Me.lstResults.Column(7), acAddress)
 
End Sub

Est-ce que je peux instaurer ça dans mon code qui me permet de mettre le chemin de mon logiciel de PDF?

RetVal = Shell