ouvrir fichier excel sous dossier!

Sub test()
Dim x As String
x = Application.GetOpenFilename
If x <> "" Then Workbooks.Open x
End Sub

'auteur: Catrice
Public MaVar
Sub Macro1()
'Mémorise le dossier par defaut que la machine au lancement de l'appli
MaVar = Application.DefaultFilePath
'Positionne sur le Dossier par défaut Perso
Application.DefaultFilePath = "C:\Mondossier"
'
'Ici le code
'
'Repositionne sur le dossier par defaut du debut à la fin du Prog
Application.DefaultFilePath = MaVar
End Sub

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Dossier [COLOR=NAVY]As Object[/COLOR], Fichier [COLOR=NAVY]As Object
Dim[/COLOR] Chemin [COLOR=NAVY]As String
    With[/COLOR] Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "Choix Dossier"
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "Choisissez le dossier et cliquez sur le bouton ""Choix Dossier"""
        .Show
        [COLOR=NAVY]If[/COLOR] .SelectedItems.Count > 0 [COLOR=NAVY]Then[/COLOR]
            Chemin = .SelectedItems(1) & "\"
            [COLOR=NAVY]Set[/COLOR] Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
            [COLOR=NAVY]For Each[/COLOR] Fichier [COLOR=NAVY]In[/COLOR] Dossier.Files
                [COLOR=NAVY]If[/COLOR] Right(Fichier.Name, 3) = "xls" [COLOR=NAVY]Then[/COLOR] Workbooks.[COLOR=NAVY]Open[/COLOR] Fichier
            [COLOR=NAVY]Next[/COLOR] Fichier
        [COLOR=NAVY]End If
    End With
End Sub[/COLOR][/SIZE]