XL 2016 WebBrowser qui disparait dans MultiPage

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Accro
Supporter XLD
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

Capture.PNG


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
 
Solution
Nicolas JACQUIN
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
Trier par date Trier par votes
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
cathodique
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
577
NONO14
N
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
298
Dranreb
Dranreb
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
566
troki74
T
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
549
tactic6
tactic6
Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
659
Usine à gaz
Usine à gaz
M
  • Résolu(e)
XL 2013 Affichage onglets multiPage (Userform)
Réponses
10
Affichages
1 K
patricktoulon
patricktoulon
piga25
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
605
piga25
piga25
L
  • Question Question
Microsoft 365 Définir la touche échap pour fermer Userform avec onglets Multipage
Réponses
5
Affichages
517
vgendron
vgendron
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
Messan
X
  • Résolu(e)
Microsoft 365 VBA code qui efface un commentaire écrit dans une cellule, suivant le résultat d'une autre
2
Réponses
18
Affichages
1 K
xxexcel
X
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
706
Mody200
M
Nadou69
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
580
Nadou69
Nadou69
M
  • Résolu(e)
XL 2013 Liens hypertexte / Nouvelle onglet
Réponses
8
Affichages
833
vgendron
vgendron
C
  • Question Question
Autres Enregistrer un code barre dans la cellule avant le titre qui est déja enregistré
Réponses
11
Affichages
770
Chatron
C
E
  • Résolu(e)
Microsoft 365 Absences dans Planning
2
Réponses
28
Affichages
2 K
ChTi160
ChTi160
J
  • Résolu(e)
Autres Pb d'affichage d'un objet
Réponses
2
Affichages
504
JPaul78
J
S
  • Question Question
XL 2010 Ecrire d'Excel vers Word
Réponses
5
Affichages
639
stonech
S
VBA_dev_Anne_Marie
  • Résolu(e)
Microsoft 365 VBA ADODB RECSET : écrire le résultats dans deux cellules.
Réponses
2
Affichages
456
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
3 K
TooFatBoy
TooFatBoy
Retour