Bonjour le forum,

Dans une application, j’ai créé deux UserForms :
  • UF_PNG qui contient un contrôle WebBrowser
  • UF_Pict qui contient un contrôle image

Dans le code ci-dessous, je précise dans la variable myUF le nom du UserForm en fonction du type de la photo traitée.
Un membre du forum pourrait-il m’aider afin d’afficher le bon UserForm et son contenu.

D’avance merci

Harry

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub show_Pict(Row_Target)
myFile = Cells(Row_Target, 1).Value & "\" & Cells(Row_Target, 2).Value
If Right(myFile,3) = "png"  Then
    Dim Hauteur As Long, Largeur As Long, myUF As String
    Hauteur = UF_PNG.WebBrowser1.Height
    Largeur = UF_PNG.WebBrowser1.Width
    UF_PNG.WebBrowser1.Navigate _
     "ABOUT:<HTML><HEAD><body><IMG WIDTH=" & Largeur & " HEIGHT=" & Hauteur & " SRC='" & myFile & "'</IMG></BODY></HTML>"
        myUF = "UF_PNG"
Else:
Set UF_Pict.Image1.Picture = LoadPicture(myFile)
myUF = "UF_Pict"
End If
'affichage du UF
VBA.UserForms(myUF).Show '<======================
End Sub