Rechercher dossiers (par ordre alphabétique) [Fermé]

Signaler
-
 sormick -
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

Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
632
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
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é
Je viens de tester.ça fonctionne Impeccable avec VBhidden!

Merci beaucoup à la communauté CCM!