Bonjour la communauté,
J’aimerais savoir pourquoi ma procedure ne me laisse pas selectionner plusieurs DOSSIERS. J’ai pourtant mis AllowMultiSelect = TRUE.

Je soupçonne que la proprieté AllowMultiSelect ne sois valide que pour Application.FileDialog(msoFileDialogFilePicker).
J’utilise excel2002.

Merci de me le confirmer/infirmer.

Voici mon code :
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
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