Discussion :

[livebe]

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 :

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
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

[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

[l_autodidacte]

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

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
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

[omen999]

bonjour,

ah, le retour du copié/collé à l'arrache...
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

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é

[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é