WebBrowser
Bonjour
J'ai une question est-il possible de mettre 20 WebBrowser sur un userform sans répéter 20 fois le code.
Je vous remercie de votre aide
Cordialement
Max
Re,
J'ai trouvé ce code en ajoutant les noms des fichiers dans l'Array mais sa ne fonctionne qu'avec un WebBrowser?
Si quelqu'un peut m'aider!
Private Sub UserForm_Initialize()
'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long
drapeaux = Array("afrique_du_sud") ', "bostwana") ',"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 SubMerci de votre aide
Je joint mon fichier
Max