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

A voir également:

Rechercher dossiers (par ordre alphabétique)
Rechercher ou entrer l'adresse - Guide
Excel trier par ordre alphabétique - Guide
Adresse IP locale : comment la trouver facilement - Guide
Classer les applications par ordre alphabétique iphone - Guide
Rechercher et remplacer word - Guide

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
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

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é

Réponse 3 / 3

sormick
27 mars 2017 à 08:17

Je viens de tester.ça fonctionne Impeccable avec VBhidden!

Merci beaucoup à la communauté CCM!

Discussions similaires

liste de noms par ordre alphabétique

recherche à partir de la barre d'adresse

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

Tri les lettres d'un mot par ordre alphabétique

comment mettre en ordre alphabétique

Discussions similaires

Newsletters