Hello,

I made a VBA EXCEL program which can open, write and close a file
(.xml), I would like to know how to do so when I click on a
"CommandButton", a window appears which display the brtowse for folder
dialog

Kinds regards.

For now :
Private Sub CreateFile(Line As String)
Dim FileName As String
Dim NewLine As String
Dim X As String, w As String, RulesInform As String

Rulename = TextBox11.Value

X = Rulename
w = ".xml"

RulesInform = X & w


FileName = "C:\Documents and Settings\q737318\Desktop\AuToRules
\RESULT1\" & RulesInform
Dim FileNum As Integer
FileNum = FreeFile
NewLine = ReplaceTag(Line)
Open FileName For Append As #FileNum ' creates the file if it
doesn't exist
Print #FileNum, NewLine ' write information at the end of the text
file
Close #FileNum ' close the file
End Sub