'Source:
'Groupes de discussion : microsoft.public.excel.programming
'De : "Michel Pierron"
'Date : Fri, 27 May 2005 09:59:57 +0200
'Local : Ven 27 mai 2005 08:59
'Objet : Re: Viewing UserForm code in Notepad
Sub UserFormProperties()
Dim vbProj As Object, F%, i%
Set vbProj = ThisWorkbook.VBProject
Set Application.VBE.ActiveVBProject = vbProj
Application.Visible = 1
Windows(ThisWorkbook.Name).Activate
DoEvents
F = FreeFile
Open "c:\MyFile.txt" For Output As #F
On Error Resume Next
With ThisWorkbook.VBProject.VBComponents("UserForm1")
For i = 1 To .[COLOR=Black][COLOR=black]Properties[/COLOR].Count
Print #F, .[COLOR=black]Properties[/COLOR](i).Name & vbTab & .[COLOR=black]Properties[/COLOR](i).Value [/COLOR]
Next i
End With
Close #F
Set vbProj = Nothing
Shell "c:\windows\notepad.exe c:\myfile.txt", 1
End Sub