Ouverture de fichier en VB

Bonjour Myram,


Essaie ceci:

'---------------------
Sub ouvrirFichier()

Filename = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
Workbooks.Open Filename

End Sub
'---------------------


Salutations!


"Myriam" <La.bande.a.basil_nospam_@netcourrier.com> a écrit dans le message de news:eCtbKx9PDHA.3016@TK2MSFTNGP10.phx.gbl...
Bonjour à toutes et tous !

J'utilise la commande : Workbooks.Open Filename:=NomFichier
pour ouvrir un fichier en VB avec Excel et cela fonctionne très bien...

Mais la fenêtre d'ouverture de fichier donne la liste de tous les documents
*.* et pas seulement les Excel *.xls..

Comment modifier la commande pour ne voir que les XLS dans la liste ??

Merci

M.M