Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion Laurent063
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

Laurent063

Guest
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…