Discussion :

[gangsterus]

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?

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

Merci

[Marc-L]

Bonjour,

de mon côté la fonction Dir renvoyant déjà les fichiers dans l'ordre alphabétique, rien à modifier …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[gangsterus]

ok, merci, du coup ça doit se situer plus loin dans la macro.

[Marc-L]

Vérifier le contenu de la variable dans la fenêtre des Variables locales.

Sinon afficher la liste dans une feuille de calculs à partir de laquelle il est simple de trier si besoin est …

[luddoo]

Hello,
Ce fichier, qui n'est pas de moi, peut être une source d'inspiration par rapport à ce que propose Marc-L

Ludo

[Marc-L]

C'est exactement la même chose ! Tri dans la feuille de calculs …

Et la définition de la variable Tableau n'est pas dans la bonne procédure !

[luddoo]

Exactement Marc-L, je n'ai pas dit le contraire, il me semble.

Ce fichier sert à compléter ce que tu as correctement précisé, en indiquant le code qu'il faut.

Ludo

[Marc-L]

Autant pour moi, mauvaise interprétation en diagonale …




_____________________________________________________________________________________________________
Le pire des cons, c'est le vieux con : on ne peut rien contre l'expérience !