1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Faire appparaître les fichiers lors de la sélection d'un dossier

Signaler
Messages postés
30
Date d'inscription
mercredi 23 mai 2012
Statut
Membre
Dernière intervention
13 août 2012
 -
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
 -
Bonjour,

Je veut donc faire apparaître les fichiers lors de la sélection d'un dossier par l'utilisateur. 

Sub Test1()
  Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
  Application.FileDialog(msoFileDialogFilePicker).Show
  MsgBox Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
End Sub


Il doit surement exister une propriété pour le faire, que je ne connais malheureusement pas (j'ai cherché sans succès dans la doc VBA et sur internet)

Merci d'avance

3 réponses

Réponse 1 / 3
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
 9
Salut,

comprend pas la question ! FileDialog(msoFileDialogFilePicker) est bien la méthode qui permet de voir et sélectionner des fichiers !

A+
Réponse 2 / 3
Messages postés
30
Date d'inscription
mercredi 23 mai 2012
Statut
Membre
Dernière intervention
13 août 2012
Pardon c'est moi qui me suis trompé je sélectionne bien un dossier 

Sub Test1()
  Dim Dossier
  Application.FileDialog(msoFileDialogFolderPicker).Show
  Dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
  MsgBox Dossier
End Sub


j'ai bêtement en recopiant l'exemple
http://www.info-3000.com/vbvba/selectionfichierdossier.php

En fait je sélectionne un dossier, par contre lors de la sélection je ne vois pas ce qu'il y a dedans (et vu que l'on travaille sur serveur avec souvent des dossiers à plein d'endroits j'aimerais autant que l'on puisse voir ce qu'il a dans le dossier sélectionner)
Après je charge toutes les feuilles .xls du dossier dans excel et je travaille dessus (ce qui implique qu'il n'y est pas n'importe quoi dans le dossier en question)
Réponse 3 / 3
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
 9
cela n'est apparemment pas possible avec l'objet "FileDialog" !

Par contre il est possible de "feinter" avec l'objet "Shell.Application"

Vas voir le code ici

il suffit d'utiliser l'option qui permet de sélectionner les fichiers. même si aucun fichier n'à été sélectionné la proprété "path" renvoie quand même le chemin du répertoire ouvert. Donc il suffit de travailler dessus pour ne récupérer que le chemin

je n'est tout vérifié mais cela à fonctionné !

A+
Répondre Posez votre question