Re Salut C@thy, JM et Alx très Myst et le Forum....
Oui Alx très Myst... On peut le faire par là aussi, c'est certain...
Mais selon le cas, l'avantage de le faire par UserForm ne listant qu'un seul et unique répertoire évitera au User curieux d'aller se ballader éventuellement dans les sous-répertoires...., De plus depuis les Boite de Dialogue, on peut supprimer, renommer ou faire un tas de choses... Alors que par un UserForm le User ne saura même pas où se trouve le fichier qu'il va pourtant ouvrir !
Enfin pour les gens qui chercheraient un jour... Voici les 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
Au fait, Mr Alx et ce restau alors........ tu m'as fait faux bon....
ici et
ici
Bon long Week End à Tous et Toutes
@+Thierry