Hyperlien dans listbox

Bonjour a tous,

j'ai un petit souci avec des liens que je n'arrive pas a rendre actif.

dans mon userform, j'ai créé un moteur de recherche pour un accès rapide à des documents dans un onglet Recherche.

mais les liens ne fonctionnent pas lorsqu'ils s'affichent dans la listbox

les liens se trouvent dans le tableau "documents" de la "feuil2"

j'utilise déjà des liens dans l'onglet "appels" de l'userform qui fonctionnent très bien

il doit y avoir un souci dans mon code...

Private Sub Lbx_Documents_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim hyperlien As Hyperlink
'// liens deuxieme page
  For Each hyperlien In Feuil2.Range("Documents").Worksheet.Hyperlinks
    If hyperlien.Name = Me.Lbx_documents Then hyperlien.Follow
  Next hyperlien

End Sub

Bonjour mipec

Es-tu certain que le code passe par le hyperlien.Follow !?

F9 pour mettre un point d'arrêt, F8 pour faire défiler

A+

Bonjour,

Modifier ainsi (Feuil2 n'est pas nécessaire) :

  For Each hyperlien In Range("Documents").Worksheet.Hyperlinks
    If hyperlien.TextToDisplay = Me.Lbx_documents Then hyperlien.Follow
  Next hyperlien

Merci à tous les deux,

@thev effectivement ca marche nickel!

encore merci

Re,