Private Sub navigation_PDF(Fichier As String)
If MultiPage1.Value = 2 Then
Set wb = Me.MultiPage1.Pages(2).Controls.Add("Shell.Explorer.2", "WebBrowser1", True)
wb.Move 205, 6, 732, 624
wb.Navigate "about:blank"
With wb.Document
.Write "<body><div style=""color:white;""><p>a</p><p>a</p><p>a</p><p>a</p><p></div><center><H1><FONT COLOR=red>DOCUMENT</font></H1><center></p></body>"
With wb
.Navigate Fichier & "#zoom=100%&page=1&toolbar=1" '&navpanes=1"
End With
End With
Else
On Error Resume Next
Me.Controls("WebBrowser1").Delete
End If
End Sub