Discussion :

[fsautejeau]

Salut,


Dans un de mes champs de formulaire je peux ajouter le chemin d acces à une image.Cette image est contenu dans un repertoire de mon disque dur.

Je n arrive pas créer un lien entre ce chemin d acces et l image elle-meme.Je voudrais qu en cliquant sur le chemin d acces, l image s ouvre automatiquement par l intermediaire d un logiciel d image(celui par defaut de windows par ex)

Y a t il une propriété ou dois passer par du code VBA?

[Arkham46]

bjr,

- FollowHyperlink
ou
- Shell
ou
- ShellExecute (cf fAQ)

ou alors définir le champ en type "lien hypertexte"

[fsautejeau]

Salut,

j ai deja essayé en definissant mon champs en lien Hypertexte, mais ca ne marche pas. Qd je clique sur le lien, ca me rajpoute une barre d outil en haut, barre d outil internet, mais rien ne se passe.

En ce qui concerne shellexecute, pour recupérer le lien du champs de mon formulaire, je dois entrer &Bild pour recuperer le texte (bild est le nom du champs contenent le lien)

Code :

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

uses  [...] ,ShellApi;

où dois je copier cà?

Code :

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

ShellExecute(0,'OPEN','C:\Mes documents\mon rapport.doc', Nil, Nil, SW_SHOW);

il me met une erreur concernant les ' de OPEN

Code :

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

'OPEN'

#

[cafeine]

Hello,

visiblement tu n'es pas trop familier du VB/VBA, il ne faut pas finir tes lignes par un ";" et les chaînes doivent être entre double quotes (") ...

pour ShellExecute, reporte toi à la FAQ.

[fsautejeau]

Code :

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

ShellExecute(0,'OPEN','C:\Mes documents\mon rapport.doc', Nil, Nil, SW_SHOW);

En fait cette ligne provient entierement du faq.

En fait, en type lien hypertexte, cela fonctionne seulement avec la valeur par defaut du champs. J ai mis l adresse d une image par defaut, et ds ces cas la, ca fonctionne, microsoft editor ouvre la photo.
Par contre quand je change l adresse (que je selectionne en parcoiurant l explorer comme ds le tuto sur la gestion des image, avec un openfile(....)), et je clique ensuite dessus, il ne se passe rien...

[cafeine]

ça ne doit pas être la même FAQ ...

moi j'ai ça : http://access.developpez.com/faq/?pa...n#shellexecute

Visiblement tu as trouvé ton code là : http://nono40.developpez.com/sources/source0031/

et c'est du Delphi ... d'ailleurs j'avais meme pas tilté avant mais les Uses c'est du Delphi ...

[fsautejeau]

oups oups,

effectivement j ai absolument pas fait attention que c etait du delphi, meme si c est ecrit plus haut...dsl

Par contre sais tu pourquoi ca n ouvre rien apres avoir entré un nouveau lien(pas celui par defaut)?

[cafeine]

Regarde ce que ça donne avec Debug.Print, sinon colle nous ton code entre les balises qui vont bien.

[fsautejeau]

tout d abord,

sans code, l ouverture d un lien hypertexte marche que sur la valeur par defaut du champs, je comprends pas pourquoi.

Ensuite j ai essayé d'utiliser le faq, d inserer dans l évnt cliquer:

Code :

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

ShellExecute Me.hwnd, "open", "&Bild", "", CurrentProject.Path, 1

avec dans un module

Code :

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

1
2
3
Private 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

mais ca ne fonctionne pas.
soit il ne connait pas la fonction ShellExecute qui se trouve pourtant dans le module, soit j ai un avertissement que la declaration de la fonction devrait comporter un sub et end sub

[Tofalu]

Si la fonction est dans un module, déclare là en public plutot que private, elle sera ainsi accessible partout

[fsautejeau]

je l si mis en public, mais j ai encore un message d erreur comme quoi la declaration de ma procedure ne correspond pas avec la description d une procedure du meme nom...

[cafeine]

Code :

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

ShellExecute Me.hwnd, "open", "&Bild", "", CurrentProject.Path, 1

Tu confonds chaîne et variable ... ici dans ton code Bild n'est pas une variable évaluée mais du texte ...

je verrais plus quelquechose dans ce genre

Code :

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

ShellExecute Me.hwnd, "open", "C:\toto\" & UneVariable, "", CurrentProject.Path, 1

[fsautejeau]

J ai entré la ligne de code suivante

Code :

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

ShellExecute Me.hwnd, "open", Bild, "", CurrentProject.Path, 1

avec Bild le nom de mon champs ds le formulaire (et ds ma table) et cela fonctionne parfaitement.

La declaration de la fonction ShellExecute etant "public" dans un module

Merci beaucoup cafeine.