Discussion :

[zamoht]

Bonjour à tous,

J'ai fait une macro qui ouvre tour à tour les différents classeurs situés dans un répertoire donné.

Savez-vous quelle ligne rajouter au code ci-dessous pour que le dossier soit parcouru dans l'ordre alphabétique ?

Merci d'avance,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Chemin = "C:\Users\"
Fichier = Dir(Chemin & "*.xls")
 
j = 1
Do While Fichier <> ""
 
'partie du code qui ouvre les fichiers et réalise un certain nombre d'actions
 
Fichier = Dir
Loop
 
End Sub

[Qwazerty]

Salut
Un petit coup de F1 sur Dir

[...]
Conseil Les noms de fichiers extraits n'étant pas classés, vous pouvez les stocker dans un tableau, puis trier ce dernier.

Donc une première boucle pour remplir le tableau, une 2eme pour trier (a moins d’intégrer le tri dans la 1ere boucle) et une dernière boucle pour exécuter le traitement sur chaque fichiers

Tu trouveras pleins de post sur le tri de tableau, a toi de jouer
Si tu as besoin demande.
[Edit]
Il me semblait bien avoir mis un truc a se sujet, malheureusement je n'ai pas géré le tri par ordre alphabétique :p
http://www.developpez.net/forums/d89...nu-repertoire/
[/Edit]
++
Qwaz

[zamoht]

OK, merci beaucoup.