Lister les disques, répertoires et fichiers..........

cs_cissou06 Messages postés 124 Date d'inscription mercredi 2 juillet 2003 Statut Membre Dernière intervention 16 mai 2007 - 23 juin 2004 à 16:46
alfajac Messages postés 17 Date d'inscription mercredi 12 mars 2003 Statut Membre Dernière intervention 20 septembre 2005 - 15 nov. 2004 à 14:58
Bonjour!

Je dois faire une boîte de dialogue où l'utilisateur doit donner le chemin du fichier qu'il veut ainsi que le nom. Pour lui faciliter la tâche j'aimerais qu'il puisse choisir le disque puis le répertoire et enfin le fichier dans des listes.
En fait sur VB je sais que c'est faisable avec les Drive, dir et file list box mais je n'arrive pas à les trouver dans la liste des contrôles de VBA... Est-ce que c'est parce-que ça n'existe pas sous VBA ou c'est parce que je suis pas douée??? Si effectivement ça n'existe pas, quelqu'un aurait une idée de comment qu'on fait pour lister les disques puis les répertoires puis les fichiers?

Merci d'avance!!!

3 réponses

cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 6
23 juin 2004 à 17:28
effectivement les ocx de VBa ne contien pas c'est option par défaut, si tu as aussi Vb d'installer, tu vas les trouver sur ton ordi
0
cs_chti_mi Messages postés 2 Date d'inscription mercredi 23 juin 2004 Statut Membre Dernière intervention 23 juin 2004
23 juin 2004 à 17:33
Voici une fonction vba qui correspond au comportement
de la boite de dialogue ouvrir fichier

mais qui ne l'ouvre pas

Execute, méthode (objet FileSearch) - Exemple

Cet exemple montre comment chercher tous les fichiers dont l'extension se termine par « .doc » dans le dossier My Documents, puis comment afficher l'emplacement et le nom de chaque fichier trouvé. Les fichiers sont triés alphabétiquement par nom de fichier.

Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "*.doc"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
0
alfajac Messages postés 17 Date d'inscription mercredi 12 mars 2003 Statut Membre Dernière intervention 20 septembre 2005
15 nov. 2004 à 14:58
C'est une bonne copie de l'aide microsoft ca ...

8-) Le Negociateur
0