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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
getSourceFilesPath = .SelectedItems
une idée? ^o)