Boite dialogue pour sélectionner plusieurs fichiers

Version imprimable

Bonjour,

J'aimerais un fonction qui:
* grâce à une boîte de dialogue, permet la sélection d'une série de fichiers
* retourne l'ensemble des noms fichiers (path + filename + extension) sélectionné.

Je parviens à le faire pour un seul et unique répertoire (code ci-après), mais pas pour une sélection multiple de fichiers.

Enfin, j'aimerais avoir un filtre sur la boîte de dialogue, p.ex: *.txt

Merci.

Note OS: Win7, idéalement ce serait mieux si fonctionne de XP à 8.1
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 dim objShell dim objFolder dim ssfWINDOWS ' Flags for the options parameter Const BIF_Foldersonly = 0 Const BIF_Browseallfiles =16384 Const BIF_returnonlyfsdirs = &H0001 Const BIF_dontgobelowdomain = &H0002 Const BIF_statustext = &H0004 Const BIF_returnfsancestors = &H0008 Const BIF_editbox = &H0010 Const BIF_validate = &H0020 Const BIF_browseforcomputer = &H1000 Const BIF_browseforprinter = &H2000 Const BIF_browseincludefiles = &H4000 ssfWINDOWS = BIF_Foldersonly set objShell = CreateObject("shell.application") set objFolder = objShell.BrowseForFolder(0, "Select the folder you want", ssfWINDOWS, "E:\") if (not objFolder is nothing) then 'Add code here. Msgbox objFolder end if set objFolder = nothing set objShell = nothing

23/12/2014, 21h56
kiki29

Salut, tu regardes du côté de FileDialog(Type:=msoFileDialogOpen) avec les options AllowMultiSelect = True et InitialFileName = "*.txt" , ou de GetOpenFilename le tout dans l'aide en ligne VBA ou la FAQ

Bonjour;
Avec l'objet FileDialog, on peut faire ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub cmdOpen_Click()
 
    Dim fd As FileDialog
    Dim SelectedFile As Variant, strRet$
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    strRet$ = "Liste des fichiers sélectionnés" & vbNewLine & vbNewLine
    fd.InitialFileName = "" 'pour vider le champ "Nom de fichier"
    With fd
        .AllowMultiSelect = True
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.ico; *.wmf", 1
        If .Show = -1 Then
            For Each SelectedFile In .SelectedItems
               'Pour ne retourner que le nom du fichier on utilise la ligne suivante :
               '' strRet$ = strRet$ & Right(SelectedFile, Len(SelectedFile) - InStrRev(SelectedFile, "\", , vbTextCompare)) & vbNewLine
               'Pour retourner le chemin complet on utilise :
                strRet$ = strRet$ & SelectedFile & vbNewLine
            Next SelectedFile
        End If
    End With
    MsgBox strRet$
    Set fd = Nothing
End Sub

29/12/2014, 14h44
omen999

bonjour,

ah, le retour du copié/collé à l'arrache... :roll:
la technique qui consiste à détourner la fonction BrowseForFolder est un vieux truc (+ de 10ans)
qui ne donne pas un résultat très ergonomique, le treeview n'étant pas adapté à la navigation.
un exemple fonctionnel ici (bas de page)
et de toute façon, pas de filtres ni de sélection multiple

et sinon plutôt que de perdre son temps à chercher sur le web des exemples très approximatifs, il y a la :faq:

la version complète qui supporte les filtres
en revanche, la sélection multiple n'est pas possible

pour l'obtenir, cette 2ème technique également dans la faq pourrait peut-être fonctionner en ajoutant l'attribut "multiple"
et si IE v10 ou supérieur est installé
30/12/2014, 13h24
l_autodidacte

C'est sensé marcher sous VBA et cela marche sur ma machine utilisant XP SP3; et avec l'adaptation nécessaire, cela devrait en principe donner un résultat.
Peut-être pas avec d'autres versions de Windows, de toute façon je ne l'ai pas testé :calim2: