Faire appparaître les fichiers lors de la sélection d'un dossier
DamienGB
Messages postés30Date d'inscriptionmercredi 23 mai 2012StatutMembreDernière intervention13 août 2012
-
18 juil. 2012 à 09:12
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
18 juil. 2012 à 15:26
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)
DamienGB
Messages postés30Date d'inscriptionmercredi 23 mai 2012StatutMembreDernière intervention13 août 2012 18 juil. 2012 à 10:12
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
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)
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