Sujet Précédent Sujet Suivant

Rechercher dossiers (par ordre alphabétique)

Fermé
sormick - 27 mars 2017 à 07:50
 sormick - 27 mars 2017 à 08:17
Bonjour,

je souhaiterais Adapter mon code VBA ci-dessous pour qu'il me trouve les dossiers d'une clé USB par ordre alphabétique et non par ordre aléatoire si possible sans trop modifier la macro.
Est-ce possible? 


Dim strPath As String
Dim objFSO2 As Object
Dim objFolder As Object

strPath = "f:" & "\"

Set objFSO2 = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO2.GetFolder(strPath2)

For Each objSubFolder In objFolder.subfolders
MsgBox objSubFolder.Name
Next objSubFolder


3 réponses

Réponse 1 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
27 mars 2017 à 08:10
Bonjour,

Où en es-tu avec ce post?

Je vois que tu n'as pas compris ma dernière intervention!

https://forums.commentcamarche.net/forum/affich-34454465-empecher-l-ouverture-classeur-excel-une-deuxieme-fois
0
Réponse 2 / 3
sormick
27 mars 2017 à 08:15
Bonjour,

Pardon je n'avais pas vu le tout dernier post qui parlait de ceci: vbHidden

je vais le tester tout de suite.
désolé
0
Réponse 3 / 3
sormick
27 mars 2017 à 08:17
Je viens de tester.ça fonctionne Impeccable avec VBhidden!

Merci beaucoup à la communauté CCM!
0

Discussions similaires

Comment classer des noms par ordre alphabétique dans un tableau?
Rozario -
piquesous -

2 réponses
Tri les lettres d'un mot par ordre alphabétique
labejau37 -
DjiDji59430 -

9 réponses
comment mettre en ordre alphabétique
paddynon -
123 -

21 réponses
recherche à partir de la barre d'adresse
Sylviane -
Lulin -

11 réponses
Amis sur facebook dans le desordre ?
jep-60 -
jep-60 -

2 réponses