Paramétrer le nom d'un UserForm
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:
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 |
