Discussion :

[Davik]

Voila suite à mon message d'hier je m'y suis mit j'ai deja pas mal avancé mais je bloque sur quelques points le premier :

Donc suite à une recherche multi critère j'ai une certaine liste de résultat et je voudrais que lors d'un doublie clic sur une des lignes alors cela ouvre le pdf associé, en sachant qu'il y a le nom du pdf.

je sais qu'il faut faire un petit mélange entre ces deux codes mais je ne sais comment faire

Code :

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

1
2
3
4
5
6
 
Private Sub lstresultat_DblClick(Cancel As Integer)
DoCmd.OpenForm "Formulaire", acNormal, , "[Cod] = " & Me.lstresultat
 
Dim lng As Long
lng = ShellExecute(Application.hWndAccessApp, "open", CurrentProject.Path & "\fiche_atex\" & nompdf & ".pdf", vbNullString, vbNullString, 1)

si vous pouvez m'aider ca ne sais comment faire. Je vous tout simplement ouvrir le pdf de la ligne dont je clique, et le nompdf comme renseignement

Merci d'avance

[Davik]

voila une image si pas vous aider à comprendre mon probleme,
mes pdfs serait stockés dans
CurrentProject.Path & "\fiche_atex\" & **** & ".pdf"

**** selon le double clic sur la ligne

[Tofalu]

En consultant la FAQ, tu aurais vu la méthode SheelExecute

[Davik]

oui ca je sais d'ailleurs je l'ai écrit dans le premier post en haut mais je ne sais pas comment adapter shellexecute lorsque c'est variable, car le pdf sera déterminé par une recherche multi critère avant...

[Tofalu]

Pas compris ...

ShellExecute nécessite des arguments dont un et le nom du fichier .. Il s'agit donc de fixer cet argument comme égal au nom du fichier à ouvrir. A priori celui selectionné dans une zone de liste puisque c'est le résultat d'une recherche

[Davik]

mais parfois dans la liste des résultats de recherche il y a plusieurs ligne donc il faut que je précise d'ouvrir le pdf par rapport à la ligne où jai double cliquez.

Dim lng As Long
lng = ShellExecute(Application.hWndAccessApp, "open", CurrentProject.Path & "\fiche_atex\" & [T_installation] & ".pdf", vbNullString, vbNullString, 1)


je suis désolé c'est parfois dur de s'expliquer
regarde par exemple l'image que jai mis ci joint si on clique sur la premiere ligne ca doit lancer "defaut.pdf" mais si on clique sur la deuxieme ca doit lancer "b.pdf" c'est sur ce point que se trouve la difficulté de ma programmation

merci de ton aide

[Davik]

Private Sub lstresultat_DblClick(Cancel As Integer)
Dim lng As Long
lng = ShellExecute(Application.hWndAccessApp, "open", CurrentProject.Path & "\fiche_atex\" & "[nompdf]" & Me.lstresultat & ".pdf", vbNullString, vbNullString, 1)

ce qui me manque c'est juste la partie "[nompdf]&Me.lstresultat en effet je ne sais pas comment indiquer d'ouvrir par rapport à une valeur de la liste... je désespère car personne n'a lair de comprendre ce que je voudrais lol

[argyronet]

Bonjour

Dans une liste, le Me.lstTruc renvoie le contenu de la 1ère colonne ...
Donc 0 en l'occurence.
Si tu veux une autre colonne, il te la lui préciser, par exemple :

Code :

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

Me.lstresultat.Column(4)

Argy

[Davik]

ah cool ca fonctionne merci Argy !!!!!

au début j'avais mis 6 car c'est ma 6eme colonne et je me suis souvenu d'une de tes remarques comme quoi la premiere était compter comme 0 donc 5 et ca fonctionne parfait... je continue dans ma mission lol

MERCI

ce forum est