Problème tableau ?

[sauceaupistou]

J'ai besoin de récuppérer une liste de fichiers dans un répertoire pour effectuer des traitements dessus.
Je les stoque dans un taleau avec redim, et redim preserve car le nombre de fichiers n'est pas connu à l'avance.

Lorsque je redimensionne mon tableau je dois savoir si il a été initialisé, et là j'ai un sérieux problème ...

Code :

1
2
3
4
5
6
7
If (Not t_Type_Fic) = True Then 'Test si tableau est initialisé
                'Tableau n'était pas initialisé
                ReDim t_Type_Fic(0)
            Else
                'Tableau initialisé
                ReDim Preserve t_Type_Fic(UBound(t_Type_Fic()) + 1)
            End If

car lors de la première exécution il passe bien dans le redim puis dans le redim preserve, mais dès que je relance une deuxième fois le traitement il ne passe plus du tout dans le Redim, comme si le tableau était déjà initialisé ...
J'ai trouvé le test If (Not t_Type_Fic) = True sur un forum mais ça n'est pas fiable.
Je me demande si une collection de type ne serait pas préférable, bien que je n'en ai encore jamais utilisé .... ?

MErci pour vos lumières.

S

[philben]

bonjour,

une solution :

Code :

1
2
3
4
5
6
7
8
9
10
 
Dim l As Long
On Error Resume Next
l = UBound(t_Type_Fic)
If err Then 'Tableau n'était pas initialisé
  err.Clear
  ReDim t_Type_Fic(0)
Else 'Tableau initialisé
  ReDim Preserve t_Type_Fic(l + 1)
End If

Philippe

[Philippe JOCHMANS]

Bonjour

Une lecture de cet article de silkyroad http://silkyroad.developpez.com/vba/tableaux/ est indispensable.

Starec