getopenfilename avec multiselection

Version imprimable

bonjour
j'aimerai pouvoir créer un bouton qui me permettra de parcourir des dossier et sélectionnées non pas un fichier mais plusieurs fichiers.
je sais que la commande qui me permet de faire la selection est getopenfilename(multiselection:true)
j'ai réaliser ce pti code mais le compilateur me signale une erreur a la deuxime ligne:
Code:

1 2 3 4 5 6 Fichier() = Application.GetOpenFilename("Excel fichiers (*.xls), *.xls,MultiSelect:=True") Workbooks.Open (Fichier) nom = ActiveWorkbook.Name taille = Len(nom) NomFichier = Left(nom, (taille - 4))
cordialement
salivie

18/09/2009, 15h11
Bigalo

Bonsoir,

Pas testé, mais Workbooks.Open attend une chaîne de caractère correspondant au nom d’un fichier unique.

Il faut donc découper ta chaîne initiale et ajouter une boucle pour ouvrir successivement les différents fichiers.
18/09/2009, 15h16
Fvandermeulen

Salut,
Je pense que cette discussion devrait t'intéresser, à toi d'adapter selon tes besoins.

http://www.developpez.net/forums/d80...hoix-multiple/

A+

Salut,à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub SelFichiersMultiples()
Dim Fichier As Variant, i As Long
 
    ChDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Excel,*.xls", 1, _
                                          "Sélectionner un ou plusieurs fichier(s)", , True)
    If TypeName(Fichier) = "Boolean" Then Exit Sub
 
    For i = 1 To UBound(Fichier)
        '.....
    Next i
End Sub