Explorateur de fichiers - Choix multiple

Version imprimable

Bonjour,
dans ma macro je veux lancer un explorateur fichier avec choix multiple :
j'ai une ébauche de code, mais c'est pas encore ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Function getSourceFilesPath() As Variant
 
Dim Fd As FileDialog
Dim Fdfs As FileDialogFilters
 
' choix du fichier Excel par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
Set Fdfs = Application.FileDialog(msoFileDialogOpen).Filters ' collection des extensions
 
Fdfs.Clear ' destruction de la liste des extensions
 
Set Fdf = Fdfs.Add("Excel", "*.xls", 1) ' ajout de la seule extension Excel
 
' récupération du nom et du chemin du fichier sélectionné
With Fd
    .AllowMultiSelect = True ' multi sélection permise
    If .Show = -1 Then
        getSourceFilesPath = .SelectedItems
    Else
        'The user pressed Cancel.
        Exit Function
    End If
End With
Set Fd = Nothing
End Function

A la compil, j'obtiens une erreur au niveau du :

Code:

getSourceFilesPath = .SelectedItems

une idée? ^o)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function getSourceFilesPath() As Variant
 
Dim Fd As FileDialog, Fdf As Variant
Dim Fdfs As FileDialogFilters
Dim k As Integer
 
' choix du fichier Excel par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
Set Fdfs = Application.FileDialog(msoFileDialogOpen).Filters ' collection des extensions
 
Fdfs.Clear ' destruction de la liste des extensions
 
Set Fdf = Fdfs.Add("Excel", "*.xls", 1) ' ajout de la seule extension Excel
 
' récupération du nom et du chemin du fichier sélectionné
With Fd
    .AllowMultiSelect = True ' multi sélection permise
    If .Show = -1 Then
        For k = 1 To .SelectedItems.Count
            getSourceFilesPath = getSourceFilesPath & "µ" & .SelectedItems(k)
        Next k
    End If
End With
Set Fd = Nothing
End Function

Pour utiliser (écrire les fichiers selectionnés)

Code:

1
2
3
4
tablo = Split(getSourceFilesPath(), "µ")
For i = 0 To UBound(tablo)
Cells(Range("A65536").End(xlUp).Row + 1, 1) = tablo(i)
Next i

18/09/2009, 13h39
GlamIS

C'est pile poil ce qu'il me faut ^^
cette discussion est par conséquence close!
merci mercatog