XL 2013 Mettre plusieur WebBrowser sur un formulaire

maval

XLDnaute Barbatruc
Bonjour

J'ai une question est-il possible de mettre 20 WebBrowser sur un userform sans répéter 20 fois le code.

Code:
Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long

Largeur = WebBrowser1.Width * 56 / 55
Hauteur = WebBrowser1.Height * 30 / 30

S = "C:\Users\Max\Desktop\Drapeau Small\afrique_du_sudsmall.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"

Largeur = WebBrowser2.Width * 55 / 55
Hauteur = WebBrowser2.Height * 30 / 30

S = "C:\Users\Max\Desktop\Drapeau Small\algeriesmall.gif"
WebBrowser2.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"

Je joint mon fichier
Je vous remercie de votre aide
 

Pièces jointes

  • User_WebBrowser.xlsm
    59.4 KB · Affichages: 38

pierrejean

XLDnaute Barbatruc
Bonjour taval

A tester (because je manque de drapeaux):
NB: Il faudra adapter en ajoutant les noms des fichiers dans l'Array

Private Sub UserForm_Initialize()
'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long
drapeaux = Array("afrique_du_sud", "algerie")
For n = LBound(drapeaux) To UBound(drapeaux)
Largeur = WebBrowser1.Width * 56 / 55
Hauteur = WebBrowser1.Height * 30 / 30
S = "C:\Users\Max\Desktop\Drapeau Small\" & drapeaux(n) & "small.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
Next
end sub
 

maval

XLDnaute Barbatruc
Bonjour Pierrejean

Je te remercie mais j'ai un petit problème j'ai comme tu me le demander mais sa ne fonctionne pas
Code:
Private Sub UserForm_Initialize()
'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long
drapeaux = Array("afrique_du_sud", "algerie", "bostwana", "burkina-faso")
For n = LBound(drapeaux) To UBound(drapeaux)
Largeur = WebBrowser1.Width * 56 / 55
Hauteur = WebBrowser1.Height * 30 / 30
S = "C:\Users\Max\Desktop\Drapeau Small\" & drapeaux(n) & "small.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
Next
End Sub
 

pierrejean

XLDnaute Barbatruc
Re

Excuse moi (je n'ai pas pu tester)
Vois si cela va mieux et dans le cas contraire essaie de préciser ou cela 'coince'

Private Sub UserForm_Initialize()
'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long
drapeaux = Array("afrique_du_sud", "algerie")
For n = LBound(drapeaux) To UBound(drapeaux)
Largeur = Me.controls("WebBrowser" & n+1).Width * 56 / 55
Hauteur = Me.controls("WebBrowser" & n+1).Height * 30 / 30
S = "C:\Users\Max\Desktop\Drapeau Small\" & drapeaux(n) & "small.gif"
Me.controls("WebBrowser" & n+1).Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
Next
end sub
 

pierrejean

XLDnaute Barbatruc
Re

Cela va tout de suite mieux avec tous les elements
Essaie:

Private Sub UserForm_Initialize()
'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long
drapeaux = Array("cameroun", "cap_vert", "afrique_du_sud")
For n = LBound(drapeaux) To UBound(drapeaux)
Largeur = Me.Controls("WebBrowser" & n + 1).Width * 56 / 55
Hauteur = Me.Controls("WebBrowser" & n + 1).Height * 30 / 30
S = "C:\Users\Max\Desktop\Drapeau Small\" & drapeaux(n) & ".gif"
' S = "D:\" & drapeaux(n) & ".gif"
Me.Controls("WebBrowser" & n + 1).Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
Next
 

maval

XLDnaute Barbatruc
Bonsoir

Suite au code qui a était réaliser par Pierrejean que je remercie encore j'ai un code pour supprimer le cadre autour du WebBrowser qui est ceci
Code:
 With WebBrowser1.Document.body.Style
.Border = "none"
.backgroundColor = RGB(255, 255, 255) 'Blanc
End With
WebBrowser1.Height = 25: WebBrowser1.Width = 55
Est-il possible de faire un code pour les 20 WebBrowser qi se trouve sur le formulaire.

je vous remercie d'avance
 

ChTi160

XLDnaute Barbatruc
Re
oui c'est ce que je voulais dire Lol
chez moi c'est
VB:
With .Controls("WbB_" & Str_Name)
        With .Document.body.Style 'Ne fonctionne pas
             .Border = "none"
             .backgroundColor = RGB(255, 255, 255) 'Blanc
         End With
With
peut être une rétérence ??????
Bonne fin de Soirée
Amicalement
Jean marie
 
Dernière édition: