ouvrir la fenetre open de windows pour selectionner fichiers

[Lwg]

hello,
j'ai une userform un boutton et quand je clique sur le bouton je dois afficher la fenetre Open file de windows.
comment je fais?
merci,

 

[@+Thierry]

Salut Lwg, le Forum

Voici deux Procédures : soir par "Application.Dialogs(xlDialogOpen)" soit par "Application.GetOpenFilename"...

Sub ExcelDialogOpen()
Dim CurrentPath As String
Dim FileToOpen As Boolean

CurrentPath = CurDir
ChDir "C:\Mes Documents"
FileToOpen = Application.Dialogs(xlDialogOpen).Show("*.xls")
ChDir CurrentPath
If FileToOpen = False Then MsgBox "Ouverture Annulée"
End Sub


Sub MethodGetOpenFile()
Dim CurrentPath As String
Dim FileToOpen As Variant

CurrentPath = CurDir
ChDir "C:\Mes Documents"
FileToOpen = Application.GetOpenFilename("Classeurs Excel,*.xls")
ChDir CurrentPath
If FileToOpen = False Then MsgBox "Ouverture Annulée": Exit Sub
Workbooks.Open FileToOpen
End Sub


Il ne te restera plus qu'à gérer ton UserForm avec un commandButtton qui lancera l'un ou l'autre des procédures ci-dessus, par exemple comme ceci :

Private Sub CommandButton2_Click()
MethodGetOpenFile
Unload Me
End Sub


Bon Aprèm
@+Thierry

 

[Lwg]

Un grand merci,