Barres de défilement sur le WebBrowser

**Ric500** · 09/03/2017, 09h28

Bonjour à tous,

J'essaie d'enlever les barres de défilement du WebBrowser dans access. Les méthodes recensées dans Developpez.net semblent inefficaces: aurais-je oublié un détail ?
Ci-après les méthodes employées sans succès:

Nom : Sans titre 4.png
Affichages : 370
Taille : 34,5 Ko

Nom : Sans titre 4.png
Affichages : 370
Taille : 34,5 Ko

le code utilisé dans access:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub IENavMeteo()
    Dim strURL As String
    Dim objIE As Object
    On Error Resume Next
 
    strURL = "file:///C:/BdD/JDSoftware/JDAmiante/GEOLoc/meteo8.html"
 
    Set objIE = Me.WebBrowser0
    objIE.Navigate strURL
    objIE.Visible = True
End Sub

Et aussi:

Code :

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

1
2
3
4
Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Me.WebBrowser0.Document.body.Style.Border = "none"
    Me.WebBrowser0.Document.body.Scroll = "auto"
End Sub

Le code html appelé par access (meteo8.html):

Code :

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

1
2
3
<body scroll='no'
<div id="cont_ODMxMjB8NXwyfDF8MXxGRkZGRkZ8MXxGRkZGRkZ8Y3wx"><div id="spa_ODMxMjB8NXwyfDF8MXxGRkZGRkZ8MXxGRkZGRkZ8Y3wx"><a id="a_ODMxMjB8NXwyfDF8MXxGRkZGRkZ8MXxGRkZGRkZ8Y3wx" href="http://www.meteocity.com/france/saint-zacharie_v83120/" target="_blank" style="color:#333;text-decoration:none;">Météo Saint-Zacharie</a> ©<a href="http://www.meteocity.com">meteocity.com</a></div><script type="text/javascript" src="http://widget.meteocity.com/js/ODMxMjB8NXwyfDF8MXxGRkZGRkZ8MXxGRkZGRkZ8Y3wx"></script></div>
</BODY>

Merci d'avance pour vos réponses, je ne sais plus dans quelle direction chercher...

**Jean-Philippe André** · 09/03/2017, 10h28

Salut,

sans certifier que cela suffise, il me paraitrait logique deja de changer ton

Code :

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

Me.WebBrowser0.Document.body.Scroll = "auto"

en

Code :

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

Me.WebBrowser0.Document.body.Scroll = "no"

**Ric500** · 09/03/2017, 10h35

Merci Jean-Philippe de ta réponse rapide,

Effectivement, j'ai fait "mon boulet"

, je n'avais pas remarqué le "auto" ET CA MARCHE !

Merci encore

Barres de défilement sur le WebBrowser [AC-2007]

VBA Access

Vue hybride

Discussions similaires

Partager

Partager