Discussion :

[Patnel]

bonjour,
je poste une discussion car je n'ai pas trouvé de bonnes réponses sur la toile

je voudrais faire un type de données, ie une structure en vba, dont un élément serait un tableau dynamique.
un exemple sémantique serait un répertoire avec sa liste de fichiers dont on ne connait pas le nombre à priori.
bien sur je pourrais faire autrement, mais je voudrais savoir faire ce genre de structures

Code :

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

1
2
3
4
5
6
 
type repertoire
 nom_rep as string
list_fic() as string
 
end type

ce code hurle à la compilation

est ce possible ou bien je me trompe quelque part

[mayekeul]

Bonjour,

je ne pense pas que la syntaxe fonctionnera comme tu le veux

mais si j'était toi, j'essaierai d'utiliser les collection

Code :

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

1
2
3
4
5
 
type repertoire
 nom_rep as string
 list_fic as Collection 
end type

[Patnel]

aie Collection je connais pas trop bien
je crois que ça fait référence aux modules de classe et je ne ne maitraise pas trop bien encore.
et je ne sais pas si ça répond à ma question
peux tu m'endire plus

[mayekeul]

simplement
Collection est une liste d'objet
que tu pourras ajouter en faisant par exemple

Code :

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

list_fic.Add "MonNouveauSrting"

Sinon F1 sera ton grand ami ;o)

[Patnel]

je veux essayer ça mais ça hurle à la compil
" impossible de définir un type public défini par l'utilisateur à l'interieur d'un module objet"

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
 
Type repertoire
 nom_rep As String
 list_fic As Collection
End Type
 
Sub toto()
 
Dim Tab_essai(1 To 3) As repertoire
 
Tab_essai(1).nom_rep = "Le 1"
Tab_essai(1).list_fic.Add = "titi"
Tab_essai(1).list_fic.Add = "toto"
Tab_essai(1).list_fic.Add = "titi"
 
Tab_essai(2).nom_rep = "Le 2"
Tab_essai(2).list_fic.Add = "vodo"
Tab_essai(2).list_fic.Add = "dofo"
 
End Sub

[mayekeul]

tu dois essayer comme ça

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
Type repertoire
 nom_rep As String
 list_fic As New Collection
End Type
 
Sub toto()
 
Dim Tab_essai(1 To 3) As repertoire
 
Tab_essai(1).nom_rep = "Le 1"
Tab_essai(1).list_fic.Add "titi"
Tab_essai(1).list_fic.Add "toto"
Tab_essai(1).list_fic.Add "titi"
 
Tab_essai(2).nom_rep = "Le 2"
Tab_essai(2).list_fic.Add "vodo"
Tab_essai(2).list_fic.Add "dofo"
 
End Sub

pas de "=" lorsque tu fait Add
et mettre New dans la déclaration

[Daniel.C]

Bonjour,

Essaie comme ça, en changeant le dossier :

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
Type repertoire
 nom_rep As String
list_fic() As String
End Type
Sub test2()
Dim Dossier As repertoire, FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dossier.nom_rep = "C:\Users\Daniel\Documents\Donnees\AMELIE"
With FSO.getfolder(Dossier.nom_rep)
    ReDim Dossier.list_fic(.Files.Count)
    For Each f In .Files
        i = i + 1
        Dossier.list_fic(i - 1) = f.Name
    Next f
End With
MsgBox Dossier.list_fic(0)
End Sub

[Patnel]

merci Daniel, c'est exactement ce que je veux, et pas loin de ce que j' imaginais

merci mayekeul de tes conseils, je vais regarder de prés ces histoires ce collection