XL 2013 Mettre plusieur WebBrowser sur un formulaire

maval · 2 Août 2016

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

pierrejean · 2 Août 2016

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 · 2 Août 2016

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 · 2 Août 2016

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

maval · 2 Août 2016

Re,

La le premier fonctionne "afrique_du_sud" mais le second non j'ai regarder l'orthographe tous est bon
@+

maval · 2 Août 2016

Re un fichier avec drapeaux

pierrejean · 2 Août 2016

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 · 2 Août 2016

Re,

Oui sa fonctionne seul bémol les drapeaux ne correspond pas au textbox

pierrejean · 2 Août 2016

Re

Il faut mettre tes noms de fichier dans l'ordre voulu dans l'Array (je n'en ai mis que 3 et et en pagaye )

maval · 2 Août 2016

Re

Ahhh Ok je te remercie et te souhaite une bonne soirée
max

maval · 2 Août 2016

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

maval · 2 Août 2016

Bonsoir

J'ai bien tester mais j'ai un message d'erreur
"Propriété ou méthode non gérée par cet objet" sur la ligne

Code:

With Me.Controls("WebBrowser" & n + 1).Style

ChTi160 · 2 Août 2016

Bonsoir Max
Bonsoir le fil,Le Forum

même message avec :

VB:

With WebBrowser1.Document.body.Style

Bonne soirée
Amicalement
Jean Marie

maval · 2 Août 2016

Non j'ai uniquement le cadre du WebBrowser1 qui a était enlevé

@+

ChTi160 · 2 Août 2016

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

Effectuez une recherche sur Excel Downloads...

XL 2013 Mettre plusieur WebBrowser sur un formulaire

maval

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires

Nous accordons de l'importance à votre vie privée