Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel FileDialog_FolderPicker_ AllowMultiSelect

FileDialog_FolderPicker_ AllowMultiSelect

5 réponses
Avatar
bonero
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 :

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
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
AllowMultiselect ne fonctionne pas avec msoFileDialogFolderPicker. On
se demande pourquoi.
Cordialement.
Daniel

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 :

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
Avatar
michdenis
Bonjour Daniel,

Essaie ceci :

| AllowMultiselect ne fonctionne pas avec msoFileDialogFolderPicker

'---------------------------------------
Sub Test()
Dim X As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Sélection des fichiers :"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
.Filters.Add "Documents Word", "*.doc; *.docx; *.docm", 1
.FilterIndex = 2
.InitialView = msoFileDialogViewProperties
.Show
For X = 1 To .SelectedItems.Count
MsgBox .SelectedItems(X)
Next X
End With
End Sub
'---------------------------------------



"Daniel.C" a écrit dans le message de groupe de discussion :

Bonjour.
AllowMultiselect ne fonctionne pas avec msoFileDialogFolderPicker. On
se demande pourquoi.
Cordialement.
Daniel

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 :

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
Avatar
Daniel.C
Bonjour Denis.
Je n'ai pas compris. Ton code ne sélectionne pas de dossiers. Si je
clique sur un dossier et sur "ouvrir", le dossier est ouvert; je ne
peux sélectionner que des fichiers.
Cordialement.
Daniel

Bonjour Daniel,

Essaie ceci :

AllowMultiselect ne fonctionne pas avec msoFileDialogFolderPicker



'---------------------------------------
Sub Test()
Dim X As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Sélection des fichiers :"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
.Filters.Add "Documents Word", "*.doc; *.docx; *.docm", 1
.FilterIndex = 2
.InitialView = msoFileDialogViewProperties
.Show
For X = 1 To .SelectedItems.Count
MsgBox .SelectedItems(X)
Next X
End With
End Sub
'---------------------------------------



"Daniel.C" a écrit dans le message de groupe de
discussion :
Bonjour.
AllowMultiselect ne fonctionne pas avec msoFileDialogFolderPicker. On
se demande pourquoi.
Cordialement.
Daniel

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 :

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
Avatar
michdenis
Ok, vous parliez d'une sélection multiple de répertoires...

Effectivement, avec
Application.FileDialog(msoFileDialogFolderPicker)

La sélection multiple n'est pas disponible.
Est-ce que tu as déjà vu une méthode qui le permet ?
J'ai besoin d'un second café!
Désolé pour la méprise!



"Daniel.C" a écrit dans le message de groupe de discussion :
uBh9Pa#
Bonjour Denis.
Je n'ai pas compris. Ton code ne sélectionne pas de dossiers. Si je
clique sur un dossier et sur "ouvrir", le dossier est ouvert; je ne
peux sélectionner que des fichiers.
Cordialement.
Daniel

Bonjour Daniel,

Essaie ceci :

AllowMultiselect ne fonctionne pas avec msoFileDialogFolderPicker



'---------------------------------------
Sub Test()
Dim X As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Sélection des fichiers :"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
.Filters.Add "Documents Word", "*.doc; *.docx; *.docm", 1
.FilterIndex = 2
.InitialView = msoFileDialogViewProperties
.Show
For X = 1 To .SelectedItems.Count
MsgBox .SelectedItems(X)
Next X
End With
End Sub
'---------------------------------------



"Daniel.C" a écrit dans le message de groupe de
discussion :
Bonjour.
AllowMultiselect ne fonctionne pas avec msoFileDialogFolderPicker. On
se demande pourquoi.
Cordialement.
Daniel

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 :

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
Avatar
Daniel.C
Est-ce que tu as déjà vu une méthode qui le permet ?



Non ;-(