Bonjour,
Je n'ai pas trouvé mon bonheur, donc je crée un nouveau sujet.
J'ai récupéré un fichier avec du code que j'ai du mal à déchiffrer, et il faut que je le fasse évoluer.
Je souhaite ouvrir successivement des fichiers dans l'ordre alphabétique. De ce que j'ai compris du code, il y a d'abord la création d'un tableau, puis l'ouverture des fichiers, mais j'aimerais qu'ils s'ouvrent dans l'ordre alphabétique. Que dois-je ajouter dans ce code?
Merci
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
19
20
21
22
23
24
25
26
27
28
29
30
31 If Right(chemin, 1) <> "\" Then chemin = chemin & "\" Fichier = Dir(chemin) Do While (Len(Fichier) > 0) I = I + 1 ReDim Preserve TableauFichiers(1 To I) TableauFichiers(I) = Fichier Fichier = Dir() Loop MAX = I For I = 1 To MAX Cells(I, 1) = TableauFichiers(I) If Left(TableauFichiers(I), 4) = "Toto" Then Cells(I, 2) = TableauFichiers(I): J = J + 1: ReDim Preserve TableauToto(1 To J): TableauToto(J) = TableauFichiers(I) Next I MaxFich = J For I = 1 To MaxFich Fichier = TableauToto(I) Workbooks.Open Filename:= _ chemin + "\" + Fichier
Partager