Discussion :

[porci82]

j'ai un souci avec ma fonction qui ouvre les liens.

voici comment je l'appelle sur le click dans la listbox:

Code :

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

1
2
3
4
Private Sub LstDocumentation_Click()
 
  openLien LstDocumentation, LstDocumentation.ItemData(LstDocumentation.ListIndex)
End Sub

et voici ma sub qui fait l'ouverture de mon lien :

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
32
33
Public Sub openLien(oControleA As Control, strPathLienA As String)
 
    On Error GoTo openLien_error
 
    Dim hlk As Hyperlink
 
    Select Case oControleA.ControlType
        Case acListBox, acLabel, acImage, acCommandButton, acListBox
            Set hlk = oControleA.Hyperlink
            With hlk
                If Not IsMissing(strPathLienA) Then
 
                  .Address = strPathLienA
                Else
                    .Address = ""
                End If
                .SubAddress = strPathLienA
                .Follow
                .Address = ""
                .SubAddress = ""
            End With
        Case Else
            Exit Sub
    End Select
 
Exit Sub
 
openLien_error:
 
  MsgBox Replace(g_cstrErrMesg, "@", "openLien") & vbCrLf & Err.Description, _
         vbCritical, "Erreur dans le module Main"
 
End Sub

et voici mon erreur:


j'y comprend rien du tout...
il fait tout jusqu'au passage du lien au .adresse
mais directement après, il file sur la gestion d'erreur....

je précise que cette fonction qui allait nickel pour un TextBox a étée réadaptée pour la listbox.
et que le lien rentre correctement jusque dans le .adresse

merci d'avances

[Arkham46]

Bjr,

Pour la lecture seule ben je sais pas.
Mais pour faire plus simple, au lieu de modifier le lien du contrôle, tu pourrais utiliser la fonction Followhyperlink .

Code :

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

Application.FollowHyperlink strPathLienA

[porci82]

un grand merci