Discussion :

[oh444]

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)

[oh444]

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 :

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
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 ?

[kiki29]

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