Multiselect de GetOpenFilename

Question

Bonjour &#224; tous,

quand je met MultiSelect &#224; True, j'obtiens l'erreur suivante:
Run-time error '1004':
Method "GetOpenFilename' of object '_Application' failed

mon code &#233;tant:
Dim filePath As Variant
Sub ClampExtract()
filePath = Application.GetOpenFilename(, , , "Select", True)
End Sub

Si je met False au lieu de True, &#231;a marche, mais comme je veux s&#233;lectionner plusieurs fichiers, c'est pas du tout utile pour moi !!!
               Comment m'en sortir ??

Merci bcp

DharTeX

jpleroisse · Answer

Bonjour,



Sub ClampExtract() 

Dim strFiles

strFiles = Application.GetOpenFilename _

(FileFilter:="Fichiers Excel (*.xls),*.xls", _

Title:="S&#233;lectionnez les fichiers &#224; ouvrir", _

MultiSelect:=True)

End Sub



jpleroisse



Si la r&#233;ponse te conviens, clique r&#233;ponse accept&#233;e, ou explique ce qui ne vas pas.

dhartex · Answer

En fait, &#231;a me fait toujours la m&#234;me erreur...

(enfin, sous Mac... il est vrai que sous windows c'est OK !)

jpleroisse · Answer

Re,

D&#233;sol&#233;, mais sous Mac, je ne connais pas.

jpleroisse

Multiselect de GetOpenFilename

3 réponses

Discussions similaires