Disparition du WebBrowser

[Patricia25]

Bonjour à tous!

Voici mon soucis : Dans un Userform j'ai créé un Multipage qui contient deux pages. Dans chaque page j'y ai inséré un WebBrowser qui gère une image préenregistrée. Jusque là, ça va 🙂 ! Les deux images s'affichent correctement.
Mais (!!!) si je change d'onglet, mes webbrowsers disparaissent !

Voici les lignes de codes de USF :

Private Sub Retour_Click()
Unload UserForm4
userform1.Show
End Sub

Private Sub UserForm_Initialize()
    Dim Gif1, Gif2 As String
    MultiPage1.Value = 0
    Gif1 = "H:\Mes images\Image1.gif"
    Image1.Navigate Gif1
    Gif2 = "H:\Mes images\Image2.gif"
    Image2.Navigate Gif2
    

End Sub
Private Sub Image1_DownloadComplete()
    On Error Resume Next
    With Image1.Document.body
        .Style.backgroundcolor = RGB(128, 128, 128)
        .Style.BorderStyle = "none" 'Cadre
        .Scroll = "no" 'Barres
    End With
End Sub
Private Sub Image2_DownloadComplete()
    On Error Resume Next
    With Image2.Document.body
        .Style.backgroundcolor = RGB(128, 128, 128)
        .Style.BorderStyle = "none" 'Cadre
        .Scroll = "no" 'Barres
    End With
End Sub

Ai-je oublié une ligne pour que les images disparaissent?
Merci pour votre aide 😱

 

[fhoest]

Re : Disparition du WebBrowser

Bonjour,
le problème vient du fait que les multipages ont été dessiner après les webbrowser
regarde ce fil que j'ai ouvert.
Je remercie encore hulk de m'avoir aider ce jour la et PMO2 pour son code
https://www.excel-downloads.com/threads/a-qui-trouvera-je-nai-jamais-trouver.131008/
A+

 

[Patricia25]

Re : Disparition du WebBrowser

Bonjour fhoest et merci !

Ca fonctionne...persque ! Le seul petit problème est que les images sont placées en arrière du multipage bien que je les ai fait passer en "Premier plan". Cela pourrait venir de quoi ?

 

[Patricia25]

Re : Disparition du WebBrowser

Problème résolu !
Merci à tous pour votre aide !