XL 2016 WebBrowser qui disparait dans MultiPage

Nicos · 20 Novembre 2020

bonjour à tous,

Je me trouve face à un petit problème, dès que je navigue dans le multipage, le webbrowser dans historique clients disparait.
Je suis dans gestion clients selectionne mon client et je vais sur historique clients, ça match
mais si je retourne dans gestion clients et retourne dans historique clients le webbrowser disparait et me crée une erreur

Donc j'ai essayé ce code mais sans succès

VB:

Private Sub MultiPage1_Change()
    With Me.MultiPage1
        If .Value = 2 Then
            Me.WebBrowser1.Visible = True
        Else
            Me.WebBrowser1.Visible = False
        End If
    End With   
End Sub

Si quelqu'un a déja eu le souci et réussi à le corriger je suis preneur
merci

patricktoulon · 20 Novembre 2020

bonjour
intéressant ce problème
j'ai ma petite idée sur la question mais un petit fichier exemple reduit à l'essentiel serait un bon moyen de faire des test avec 2016 en plus

Nicos · 20 Novembre 2020

Salut Patrick
voici
ce n'est que le minimum que je peux donner, mais opérationnel 100% sinon ce léger problème

patricktoulon · 21 Novembre 2020

Bonjour
c'est bien ce que je pensais le webbrowser est supprimé en fait
les multipage ont un handle comme des fenêtre windows quand une change une page c'est comme si tu fermais une fenêtre le controls est sensé plus exister c'est une peu le soucis avec un multipage sur certain controls
je solutionne le problème en l'ajoutant dynamiquement quand on arrive sur la pages(2)( la 3eme) et le supprime quand on en sort

Nicos · 21 Novembre 2020

Bonjour Patrick,
ça marche nickel, je te remerci, comme d'habitude parfait
@+

Nicos · 21 Novembre 2020

Pour que ça passe avec mon classeur original j'ai dû le placer comme ça,
sinon erreur

Merci encore

VB:

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

Effectuez une recherche sur Excel Downloads...

XL 2016 WebBrowser qui disparait dans MultiPage

Nicos

XLDnaute Occasionnel

Nicos

patricktoulon

XLDnaute Barbatruc

Nicos

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Nicos

XLDnaute Occasionnel

Nicos

XLDnaute Occasionnel

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums