webbrowser ajouté dynamiquement inutilisable

**patricktoulon** · 18/01/2017, 15h48

Bonjour a tous

je suis en train de faire une petite expérience ou j'ai besoins d'ajouter un webbrowser dynamiquement dans le sheets
je l'ajoute mais il est inutilisable apparemment ou j'ai pas pigé un truc
si quelqu'un a une idée je prends

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub AddWebBroswerToWorksheet()
    Dim myWebBrowser
    Dim wb
    Set myWebBrowser = Sheets(1).OLEObjects.Add(ClassType:="Shell.Explorer.2", Left:=147, Top:=60.75, Width:=400, Height:=400)
    myWebBrowser.Name = "web"
    Set wb = myWebBrowser.Object
    With wb
        .Silent = True
        .Navigate "about:blank" si je met l'adresse de google ca navigue pas non plus 
 
        .Document.write "<html><div id=""calque"" style=""width:80%;height:80%;border:1px solid red""></div></html>"
 
        Do: DoEvents: Loop Until .ReadyState = 4    'probleme boucle indéfiniment
 
        Debug.Print .Document.getelementbyid("calque").innerhtml
 
        '.Document.body.Scroll = "no"
        'Debug.Print .Document.body.innerHTML
    End With
 
End Sub

normalement je dois avoir mon carré(balise div) avec bordure rouge dans le webbrowser
une idée pitié je me prends la tète avec ca depuis 1 bonne heure
merci pour les retours

**pijaku** · 18/01/2017, 16h14

Salut Patrick,

Pas d'idée, désolé, mais une piste...
Ton cadre rouge apparaît si tu actives puis désactives le mode création (onglet développeur).

**patricktoulon** · 18/01/2017, 16h21

re
bonjour pikaju
bizarre comme comportement
je viens de tester et chez moi le webbrowser qui était blanc devient noir et rétréci a chaque fois que j'active/désactive le mode création

vraiment bizarre

**pijaku** · 18/01/2017, 16h27

Idem chez moi...

**patricktoulon** · 18/01/2017, 17h40

re
bon pour ma petite exeperience il y aura bien quelqu'un qui saura un jour je ne clos donc pas encore le sujet

petite explication sur mon projet :

je souhaite ajouter un webbrowser
dans le document de celuici ajouter un div contenteditable
copier une plage a la volé(rng.copy)
exécuter la commande javascript "paste" dans le diven ayant donner le focus a celui ci
récupérer ainsi le code html avec le meme mime que si j'avais sauver la plage en html en vue de l'inserer dans le corps du mail en CDO ou Outlook
et enfin supprimer le webbrowser

pour le moment je le fait avec une instance IE c'est assez rapide
cette méthode permet de faire la même chose que si je sauve la plage en html dans excel mais sans fichier html externe et surtout rien que la table
c'est propre et net

pour voir le résultat dans IE remplacer 3000 par 1 et bloquer le ".Quit"

voila
sub de test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
Dim tablehtml As String 'variable
tablehtml = range_to_html_sans_codagehtml(Sheets(1).Range("A4:C" & Cells(Rows.Count, 1).End(xlUp).Row)) 'plage a adapter
Debug.Print tablehtml
End Sub

petite fonction qui va bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function range_to_html_sans_codagehtml(rng) As String
    Dim ie As Object, codebase As String
    codebase = "<html><div id=""calque"" contenteditable=true style=""width:80%;height:80%;""></div></html>" 'code de base avec mon div conteneditable
    rng.Copy
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True: .Left = 3000: .Navigate "about:blank" ' la position de la fenetre ie est en dehors du chanps de l'ecran (pas la peine dela voir ca n'est pas necessaire
        .Document.write codebase: .Document.getelementbyid("calque").Focus ' je met le div et lui donne le focus
        .Document.execcommand "paste", False, Null 'j'execute la commande javascript "Paste"
        Set mestd = .Document.getelementsbytagname("TD") 'je collectionne tout les balises "TD"
        For i = 0 To mestd.Length - 1
            'je met toutes les bordures xlnone de la plage en couleur resemblante a celle du xlnone( bleu/grisclair)
            If mestd(i).Style.Bordertop Like "*0px*" Then mestd(i).Style.Bordertop = "0.1pt solid #A9BCF5"
            If mestd(i).Style.Borderbottom Like "*0px*" Then mestd(i).Style.Borderbottom = "0.1pt solid #A9BCF5"
            If mestd(i).Style.Borderleft Like "*0px*" Then mestd(i).Style.Borderleft = "0.1pt solid #A9BCF5"
            If mestd(i).Style.Borderright Like "*0px*" Then mestd(i).Style.Borderright = "0.1pt solid #A9BCF5"
        Next
        range_to_html_sans_codagehtml = .Document.getelementbyid("calque").innerhtml 'la fonction devient le string du code html de la plage correspondante
        .Quit' on quite IE on en a plus besoins
    End With
   Application.CutCopyMode = False 'on debloque la plage en pointillés (due a copy)
End Function

dans le debug on a le résultat

cette fonction dans un webbrowser devrait remplacer mes contrib grille to hml

**unparia** · 18/01/2017, 22h21

Bonjour patricktoulon
J'ignore totalement comment a été construit ce contrôle (je n'utilise jamais Excel à d'autres fins que celles d'un tableur).
Il peut y avoir plusieurs explications au fait que ce problème surgisse en création dynamique et non en mode création manuelle.
Il se peut par exemple qu'en création manuelle (si décision du créateur de ce contrôle), l'image de ce contrôle soit directement insérée en tant que partie de l'image d'un userform. Elle est alors persistante.
En mode création dynamique, les choses revêtent un aspect totalement différent et ce qui est dessiné sur le userform en mode exécution n'a pas de qualité persistante (pas plus que tout ce que tu pourrais y dessiner d'autre). Un Userform ne dispose en effet pas de la propriété AutoRedraw (comme par exemple un Form de VB6).
Tu peux essayer de vérifier si ce que je dis est exact de la manière suivante :
- ajoute dynamiquement ce contrôle, sans autre instruction
- déplace maintenant la fenêtre du userform jusqu'à ce que ce contrôle soit hors écran
- reviens en arrière. Si le dessin de ce contrôle n'est plus visible, tu as ta réponse dans ce que j'ai exposé plus haut.

EDIT : je vois que tu insères ce contrôle sur une feuille et non sur un userform. Les choses sont alors différentes, mais peuvent être similaires. (ne n'ai jamais fait l'expérience d'un dessin fait en mode exécution sur une feuille de calcul et ne sais donc s'il aurait une persistance).

webbrowser ajouté dynamiquement inutilisable

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager