Bonjour,

Je me permets de poster ça ici car je n'ai trouvé nulle part réponse à mon problème.
Je dispose d'un Userform avec :

- 1 Listbox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
   Set f = Sheets("Repertoire")
   Set Rng = f.Range("B2:K" & f.[b65000].End(xlUp).Row)
   TblTmp = Rng.Value
   Ncol = Rng.Columns.Count
   For i = LBound(TblTmp) To UBound(TblTmp)
     ReDim Preserve choix(1 To i)
     For k = LBound(TblTmp) To UBound(TblTmp, 2)
       choix(i) = choix(i) & TblTmp(i, k) & " * "
     Next k
   Next i
   Me.ListBox1.List = Rng.Value
 
End Sub

- 1 Textbox
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
Private Sub TextBox1_Change()
  If Me.TextBox1 <> "" Then
     mots = Split(Trim(Me.TextBox1), " ")
     Tbl = choix
     For i = LBound(mots) To UBound(mots)
        Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
     Next i
     If UBound(Tbl) > -1 Then
        Dim b(): ReDim b(1 To UBound(Tbl) + 1, 1 To Ncol)
        For i = LBound(Tbl) To UBound(Tbl)
          a = Split(Tbl(i), "*")
          For k = 1 To Ncol: b(i + 1, k) = a(k - 1): Next k
        Next i
        Me.ListBox1.List = b
        Me.Label1.Caption = UBound(Tbl) + 1
     End If
  Else
     UserForm_Initialize
  End If
End Sub


- 1 Webbrowser
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub ListBox1_Click()
 
    fichier = Me.ListBox1
    If fichier <> False Then
    UserForm2.WebBrowser1.Navigate fichier & "#toolbar=0&navpanes=0"
    WebBrowser1.SetFocus
Else
End If
 
End Sub


Donc, à l'initialisation de l'USF, ma listbox charge ma plage de données. (il s'agit d'un code que j'ai trouvé sur boisgontier)
Ma plage de données correspond à une liste de liens de fichiers PDF.

Si je clique sur une ligne, pas de soucis, ça s'affiche bien dans le WebBrowser. En revanche, si je passe d'abord par une recherche par mot clé de la textbox (afin d'épurer ma listbox) et que je clique, le webbrowser plante (Nous ne pouvons pas atteindre cette page..)

Quelqu'un aurait-il une solution ? Je n'ai trouvé nulle part réponse à mon problème et le contrôle adobe reader + sa référence ne fonctionnent pas non plus (élément introuvable sur le contrôle)