galopin01 a écrit :
Un fichier joint dont le code est verrouillé... Je n'aurai pas osé !
Quel humour !
En effet mon code est top secret !!!
'installer WebBrowser1
Private Sub UserForm_Initialize()
Dim fichier, largeur, hauteur
'Définit les dimensions d'affichage de l'image dans le WebBrowser.
largeur = WebBrowser1.Width
hauteur = WebBrowser1.Height
fichier = " bla bla bla\3557.gif"
'Affiche l'image dans le WebBrowser en supprimant les marges et les barres de défilement
WebBrowser1.Navigate "ABOUT:<HTML><CENTER><HEAD><body scroll='yes' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
largeur & " HEIGHT=" & hauteur & _
" SRC='" & fichier & "'</IMG></BODY></CENTER></HTML>"
End Sub
J'ai utilisé celui proposé par BOB71AU dans ce fil que je salue.
mbbp