Discussion :

[Aal'k]

Salut à tous,

Voici mon problème: lors de l'Initialize d'un UserForm, je souhaite afficher dans une ListBox la liste des fichiers contenus dans un certain répertoire, triés par ordre décroissant de date de création (du plus récent au plus ancien).
Pour cela je passe d'abord par un tableau dynamique appelé ListeFichiers() qui contient des objets File. Seulement lorsque je veux initialiser ce tableau et y mettre un premier objet File, l'erreur "Utilisation incorrecte de la propriété" apparaît et ListeFichiers(0) est surligné, sans que je comprenne pourquoi... Y a-t-il un problème dans le For Each? Dans le type File?

Voici le début de mon 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
Private Sub UserForm_Initialize()
Dim fso As Scripting.FileSystemObject
Dim disque As Scripting.Folder
Dim fichier As Scripting.File
Dim ListeFichiers() As Scripting.File
Set fso = New Scripting.FileSystemObject
Set disque = fso.GetFolder("E:\")
'Tri des fichiers .out par ordre décroissant de date de création
For Each fichier In disque.Files
    If UBound(ListeFichiers()) = -1 Then
        ReDim ListeFichiers(0)
        ListeFichiers(0) = fichier
    End If
...

Merci d'avance de votre aide!

[Igloobel]

Bonjour,

Est-ce que ton userform est uniquement fait pour lister les fichiers puis cliquer sur un ou plusieurs pour les ouvrir ?

Si c'est la cas je te conseille vivement d'utiliser les "FileDialog" c'est beaucoup plus simple.

A moins bien sur si ton Userform sert à autre chose

Tu dis

A+

[Aal'k]

Salut Igloobel et merci pour ta réactivité!

Oui, mon UserForm ne comporte qu'une ComboBox (pas ListBox, au temps pour moi) destinée à lister les fichiers pour en sélectionner un à traiter, un bouton qui sert à valider la sélection et un autre qui ferme l'UserForm.
OK je vais voir avec les FileDialog, mais j'aurais aimé quand même comprendre ce qui cloche dans mon code, car je ne vois pas ce qui fait défaut...

[Invité]

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
 
Private Sub UserForm_Initialize()
Dim Fso As Object, Lst As Object, ListeFichiers() As String, Ub As Integer
Set Lst = CreateObject("System.Collections.SortedList")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set disque = Fso.GetFolder("c:\")
'Tri des fichiers .out par ordre décroissant de date de création
For Each fichier In disque.Files
Lst.Add Format(fichier.datecreated, "yyyy-mm-dd-hh-mm-ss") & "_" & fichier.Name, fichier.Name
 
Next
 
Ub = -1
 For I = 0 To Lst.Count - 1
    Ub = Ub + 1
    ReDim Preserve ListeFichiers(Ub)
   ListeFichiers(Ub) = Lst(Lst.GetKey(I))
 Next
 Me.ListBox1.List = ListeFichiers
End Sub

[unparia]

Bonjour

Très indépendamment de tout le reste (qui n'a rien à voir avec l'erreur)
cette ligne de code :

Code :

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

If UBound(ListeFichiers()) = -1 Then

n'a aucun sens
Un tableau non dimensionné n'a pas de UBound (et un Ubound ne saurait être négatif).
Fais ce test tout bête :

Code :

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

1
2
Dim toto()
If UBound(toto()) = -1 Then MsgBox "coucou"

et constate la sortie en débug

[Aal'k]

Salut rdurupt et unparia,

rdurupt: Merci, ça marche très bien!

unparia: OK mais pourtant j'ai trouvé sur msdn:

Si Array n'a pas d'éléments, par exemple, si c'est une chaîne de longueur nulle, UBound retourne -1.

[Invité]

unparia: OK mais pourtant j'ai trouvé sur msdn:

oui et pourtant non!

écris ça dans la fenêtre d'execution ?ubound(array())écris ça dans ton code ?ubound(array())

[Aal'k]

oui et pourtant non!

Pourrais-tu être un peu plus explicite?

[unparia]

Ne pas confondre array et matrice (tableau dynmique).
Ce que tu as lu est vrai dans le cas d'un array, et ainsi :

Code :

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

1
2
3
toto = Array()
MsgBox UBound(toto)
If UBound(toto) = -1 Then MsgBox "coucou"

[Aal'k]

unparia: D'accord c'est noté!

Encore une fois, merci à tous!

A+

[unparia]

Pas de quoi...
Pour les plus curieux, maintenant :
voici un exemple de mécanisme rigolo qu'il m'arrive d'utiliser dans certains cas (rares) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private toto()
 
Private Sub CommandButton1_Click()
  If Not (Not toto) Then
    MsgBox "déja dimensionné à " & UBound(toto) & " on va lui ajouter un élément"
    ReDim Preserve toto(UBound(toto) + 1)
    MsgBox "maintenant dimensionné à " & UBound(toto)
  Else
    MsgBox "non encore dimensionné - pouvez faire un redim(0), par exemple. On le fait"
    ReDim toto(0)
    MsgBox "maintenant dimensionné à " & UBound(toto)
  End If
 End Sub

Si DarkVader, que je salue, passe par là, il va surement crier au scandale et proposer du plus pur (ce qui est en effet également possible)