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.
Je joint mon fichier
Je vous remercie de votre aide
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