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
