Discussion :

[bruno38]

Bonjour,

Rien de plus simple que de manipuler la boite de dialogue FileDialog; Pourtant quand on choisit le mode "msoFileDialogFolderPicker", chaque ouverture de répertoire indique "dossier vide" ! cela peut être déroutant voir inacceptable pour les utilisateurs de mon fichier...
Voici mon code somme toute basique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = Sheets("parametres_options").Cells(96, 32 + lang).Value
        .InitialFileName = Chr(34) & Sheets("parametres_options").Range("C201").Value & "\" & Chr(34)
        .InitialView = msoFileDialogViewProperties
        .Show
 
        If .SelectedItems.Count > 0 Then
            Sheets("parametres_options").Range("C201") = .SelectedItems(1)
            ListeFichiers (.SelectedItems(1))
        End If
 
    End With

J'ai beau gratter dans les forums les docs microsoft office je ne vois pas comment afficher le contenu du dossier sélectionné ... est-ce possible?

Merci !

[XLRATOR]

Bonsoir,
C'est vous cherchez à sélectionner des fichiers pltot que des dossier utilisez: msoFileDialogFilePicker au lieu de msoFileDialogFolderPicker.

NB: Il est normal que les fichiers ne s'affiche pas puisque la finalité de FolderPicker est de sélectionner des dossiers et non pas des fichiers.

Cordialement
Karim

[bruno38]

Merci pour votre réponse,

c'est l'intégralité d'un répertoire que je veux selectionner ... faute de faire mieux avec msoFileDialogFolderPicker je vais utiliser msoFileDialogFilePicker en demandant à mes utilisateurs de faire un CTRL+A pour tout selectionner ... Dommage

[XLRATOR]

Je vous propose d'aller vois dans ce tuto:

http://warin.developpez.com/access/fichiers/

ça pourrait peut être vous donner des idées à mieux manipuler les dossiers, les fichiers, et les lécteurs.

Cordialement.
Karim