Bonjour le forum,
Gif dans un USF :
Module :
Sub Bouton1_Cliquer()
UserForm1.Show
End Sub
USF :
Private Sub UserForm_Initialize()
Dim fichier, largeur, hauteur
largeur = WebBrowser1.Width
hauteur = WebBrowser1.Height
fichier = "C:\Users\.................\10.gif"
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