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
27
28
29
|
Sub FileDialog_FolderPicker_SOS()
'jaimerais savoir pourqhoi je n'arrive pas à selectionner plusieurs dossiers.
Dim BdD As FileDialog 'Boite de Dialogue.
Dim TypeBoite As Long
TypeBoite = msoFileDialogFolderPicker
Set BdD = Application.FileDialog(msoFileDialogFolderPicker)
Dim MesDossiers As Variant
With BdD
.Filters.Clear
.Filters.Add "tOuS lEs fIcHiErS", "*.*"
.AllowMultiSelect = True
If .Show = 0 Then
MsgBox "vous avez Annulez/Fermez la boite de dialogue."
Else
For Each MesDossiers In .SelectedItems
MsgBox MesDossiers
Next MesDossiers
End If
End With
End Sub |
