Discussion :

[Jojo____]

Bonjour,

J'ai une zone de liste alimentée par une requête pour récupérer un lien hypertexte que je tiens à jour avec des requery etc en fonction des choix de l'utilisateur (liste déroulante etc). Tout marche bien pour l'affichage du lien, il est cependant impossible de cliquer dessus. J'aimerais savoir si quelqu'un connait une solution pour rendre ce lien "cliquable" svp.

Merci beaucoup !

[Jean-Philippe André]

salut,
le clic "sur" l'hyperlien reste une vue de l'esprit

Tu peux très bien suivre l'hyperlien sans avoir besoin de cliquer sur la chaîne de caractères.

regarde le code fournit dans l'aide en ligne sur FollowHyperlink ou sur le lien MS
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

Tu adapteras le code en conséquence pour prendre la valeur "pointée" dans ta liste

[Jojo____]

Merci de ta réponse. J'avais déjà cherché et trouvé cette page, mais j'ai pas dû très bien comprendre comment s'en servir...

J'ai tenté ceci:

Code :

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

    Application.FollowHyperlink Lien_Commande.Column(0)

Sur l'evenement "click" de ma zone de liste. J'ai pensé ainsi pouvoir ouvrir le lien hypertexte puisque ma zone de liste ne contient que lui et donc la valeur se trouve en column(0). Sur le clique, rien ne se produit.


Soit dit en passant, j'ai bêtement essayé d'afficher "test" avec une msgbox sur l'evenement click de la zone de liste et rien ne se produit non plus... Je vois pas pourquoi.

[EDIT] Alors pour info la msgbox test s'affiche qd je fais un clique droit + coller... Me demandez pas pourquoi ^^

[Jean-Philippe André]

En mettant un point d'arrêt dans le code, tu vois déjà dans un premier temps si l'évènement se déclenche.

Si ce n'est pas le cas, voir si d'autre évènement comme Change ou Enter sont plus en rapport avec la réaction visée

[Jojo____]

Pour l'instant suivant mes tests avec mon code tout moche:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Lien_Commande_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If IsNull(Lien_Commande.Column(0)) Then
        MsgBox ("1 " & Me.Lien_Commande)
        MsgBox ("2 " & Lien_Commande.Column(1))
 
    Else
        MsgBox ("42")
        Application.FollowHyperlink Lien_Commande.Column(0)
    End If
End Sub

J'arrive à gérer l'evenement mais pas à récupérer le contenu de ma zone de liste Là ca m'affiche: "1", "2"

[Jean-Philippe André]

Disons que ton code affiche ce que tu lui demandes,

si tu rentres dans la boucle de ton If, c'est que la liste renvoie une valeur nulle, donc tu ne peux avoir que "1" puis "2" affiché.

Une bonne méthode pour "forcer" à avoir la valeur active est de l'appliquer après les modifications avec une sélection de la première ligne de la liste.

Code :

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

Lien_Commande.value = Lien_Commande.Column(0)

[Jojo____]

J'ai réussi ! C'était pourtant pas évident car en récupérant le fameux contenu, ça renvoit le nom du lien et son adresse, j'ai alors dû utiliser split pour récupérer l'adresse qui m'intéresse. C'est pas très long mais il a fallu réfléchir un peu pour en arriver là. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Lien_Commande_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim adresse As String
    If IsNull(Lien_Commande.ItemData(0)) Then
    Else
        adresse = Split(Lien_Commande.ItemData(0), "#")(1)
        Application.FollowHyperlink adresse
    End If
End Sub