Private Sub ComboBox1_Change()
Dim i As Single
Dim MyArray(500, 3)
ListBox1.ColumnCount = 3 'NB de colonne
ligne = 0
DerLigne = Range("A65535").End(xlUp).Row
For i = 2 To DerLigne
If Cells(i, 1) = ComboBox1 Then
MyArray(ligne, 0) = Cells(i, 1)
MyArray(ligne, 1) = Cells(i, 2)
MyArray(ligne, 2) = Cells(i, 3)
ligne = ligne + 1
End If
Next i
ListBox1.List() = MyArray
End Sub
Private Sub ListBox1_Click()
With ListBox1
navigation_PDF NomDossier & CStr(.List(.ListIndex, 2)) & ".pdf"
End With
End Sub
Private Sub navigation_PDF(Fichier As String)
'SI le fichier n'existe pas alors on sort de la procédure
If Not FichierExiste(Fichier) Then MsgBox " Pas de fichier trouvé": Exit Sub
With WebBrowser1
'Contrôle statut du WebBrowser au démarrage (égale à 4) puis affichage page en zoom 55%
Range("A1") = .readyState
'.Navigate fichier & "#zoom=16.5%&page=1&toolbar=0"
.Navigate Fichier & "#zoom=55%&page=1&toolbar=0"
'Contrôle statut du WebBrowser après l'opération (égale à 1)
Range("A1") = .readyState
End With
End Sub