Listbox via recherche textbox : Problème d'affichage PDF dans WebBrowser

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:

---

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:

---

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:

---

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)

En fait c'est "#toolbar=0&navpanescontient du texte, mon webbrowser n'arrive pas à comprendre ça : "#toolbar=0&navpanes=0"

Du coup, je tente avec les sendkeys.. CTRL+H pour plein écran par exemple, mais ça fait rien du tout à part désactiver mon numlock.

Ce qui donne ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub ListBox1_Click() On Error Resume Next fichier = Me.ListBox1 WebBrowser1.Visible = True While WebBrowser1.ReadyState <> READYSTATE_COMPLETE Or WebBrowser1.Busy = True DoEvents Wend Panel.WebBrowser1.Navigate fichier '& "#toolbar=0&navpanes=0" Panel.TextBox2.Value = fichier   '"#toolbar=0&navpanes=0" '#pagemode=none   ListBox1.Visible = False TextBox1.Visible = False   WebBrowser1.SetFocus DoEvents Application.Wait Time + TimeSerial(0, 0, 1) SendKeys "^{H}" Application.Wait Time + TimeSerial(0, 0, 1) DoEvents End Sub

---

Quelqu'un aurait une idée pour le problème des sendkeys ?

Salut, peut-être en allant voir ici et plus bas dans les posts suivants.