Lister fichiers, répertoires et sous-répertoires dans USF

[Laurent063]

Bonjour le forum!!!

Je viens faire appel aux professionnels du VBA car je ne sais même pas si cela est faisable.
J'ai déjà trouvé dans le forum une solution qui s'y approché mais pas complétement satisfaisante.

Ma question est simple.

J'aimerai que quand je clique sur un bouton cela simule une sorte d'explorateur de fichier mais avec beaucoup moins de droits.
En gros, cela ouvre un USF qui va lister en fonction du répertoire précisé dans la macro soit les fichiers présents soit les sous-répertoires.
En cas de double clic sur les fichiers, il ouvre le fichier correspondant et en cas de double clic sur le sous répertoire, il listera de nouveau soit les fichiers soit les sous répertoires de ce dernier et ainsi de suite...

Je remercie par avance tous ceux qui auraient des solutions à cette question.

 

[excalibur]

Re : Lister fichiers, répertoires et sous-répertoires dans USF

bonjour laurent le forum macro ouvrant une boite de dialogue + ouvre le fichier selectionne
Option Explicit
Sub ObtenirNomFichierImport()
Dim Filt As String
Dim IndexFiltre As Integer
Dim NomFichier As Variant
Dim Titre As String
Filt = "Fichiers texte (*.txt),*.txt," & _
"Fichiers Lotus (*.prn),*.prn," & _
"Fichiers séparés par des virgules (*.csv),*.csv," & _
"Fichiers ASCII (*.asc),*.asc," & _
"Tous les fichiers (*.*),*.*"
IndexFiltre = 5
Titre = "Sélectionner un fichier à importer"
NomFichier = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=IndexFiltre, _
Title:=Titre)
If NomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
End If
Workbooks.Open Filename:=NomFichier
End Sub
salutations