Multiselect de GetOpenFilename

Bonjour à tous,

quand je met MultiSelect à True, j'obtiens l'erreur suivante:
Run-time error '1004':
Method "GetOpenFilename' of object '_Application' failed

mon code étant:
Dim filePath As Variant
Sub ClampExtract()
filePath = Application.GetOpenFilename(, , , "Select", True)
End Sub

Si je met False au lieu de True, ça marche, mais comme je veux sélectionner plusieurs fichiers, c'est pas du tout utile pour moi !!!
               Comment m'en sortir ??


Merci bcp

DharTeX

Bonjour,

Sub ClampExtract() 
Dim strFiles
strFiles = Application.GetOpenFilename _
(FileFilter:="Fichiers Excel (*.xls),*.xls", _
Title:="Sélectionnez les fichiers à ouvrir", _
MultiSelect:=True)
End Sub

jpleroisse

Si la réponse te conviens, clique réponse acceptée, ou explique ce qui ne vas pas.

En fait, ça me fait toujours la même erreur...

(enfin, sous Mac... il est vrai que sous windows c'est OK !)

Re,
Désolé, mais sous Mac, je ne connais pas.
jpleroisse