Problème avec fonction et array à 2 dimensions
J'ai un fichier qui prend tous les fichiers excel d'un répertoire, je détermine la date de création et je les mets dans un array à 2 dimensions. Ensuite j'utilise une fonction pour les trier par date. Le problème est que ça ne marche pas au niveau du retour de la syntaxe pour appeler la fonction ou au niveau du retour de l'array. J'ai cherché sur internet et sur le forum, mais je n'ai rien trouvé de concluant.
Voici mon code
Code:
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
|
ReDim list_of_files(2, 0) As String
list_of_files=...... ' ca me donne un array 2 par 24
j=24 'nombre de fichiers
ReDim list_of_files2(2, j) As String
list_of_files2 = list_sorted(list_of_files(), j - 1)
Function list_sorted(list1() As String, n As Integer) As String
Dim backup1(2, n) As String
Dim backup2(2, n) As String
Dim message As String
For i = 1 To n - 1
For k = 2 To n
If list1(2, k) < list1(2, i) Then
backup1k = list1(1, k)
backup2k = list1(2, k)
backup1i = list1(1, i)
backup2i = list1(2, i)
list1(1, k) = backup1i
list1(2, k) = backup2i
list1(1, i) = backup1k
list1(2, i) = backup2k
Next k
Next i
list_sorted() = list1()
End Function |
merci de m'aider ;)
