OPENDIALOG ET SAVEDIALOG VIA UN CREATEOBJECT

Option Explicit
Dim OpenDialog As Object
Dim SaveDialog As Object
Dim ret%
Dim FileName$

Private Sub Form_Load()
'Creation des Objets
Set OpenDialog = CreateObject("SAFRCFileDlg.FileOpen")
Set SaveDialog = CreateObject("SAFRCFileDlg.FileSave")

End Sub


Private Sub Command1_Click()
'pour tester le bouton open
ret = OpenDialog.OpenFileOpenDlg()
'Si le user a selectioné un fichier et cliqué sur ok
' on affiche le fichier selectionné
If ret <> 0 Then MsgBox OpenDialog.FileName


End Sub

Private Sub Command2_Click()

'pour tester le bouton save
ret = SaveDialog.OpenFileSaveDlg()

'Si le user a selectioné un fichier et cliqué sur ok
' on affiche le fichier selectionné
If ret <> 0 Then MsgBox SaveDialog.FileName

End Sub


Private Sub Form_Unload(Cancel As Integer)
'on release nos object
Set OpenDialog = Nothing
Set SaveDialog = Nothing
End Sub