Discussion :

[salivie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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+

[kiki29]

Salut,à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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