Définir un nombre de variable dynamiquement

Bonjour,

Est-il possible de définir un nombre de variable en fonction du nombre de fichier importé ?

Pour mieux comprendre j'importe des données contenues dans divers fichiers txt contenus dans un même répertoire. Le nombre de ces fichiers txt peuvent varier d'un répertoire à l'autre.

Les données récupérées sont organisés en tableaux (1 tableau=1fichier txt) est-il possible de définir le nombre de tableaux en fonction du nombre de fichiers txt contenus dans le répertoire ? Si oui comment procéder ?

Bonjour,

Dans ton cas, je ferais une boucle qui pour chaque fichier du répertoire alimentera ma variable. (1 seule variable quelque soit le nombre de fichier)


exemple : ce code affiche en colonne A le nom des fichiers xls à la racine C

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim fso As Object Dim FsoRepertoire As Object Dim FsoFichier As Object Dim i As Long   Dim str() As String   Set fso = CreateObject("Scripting.FileSystemObject") Set FsoRepertoire = fso.GetFolder("C:\")     'Boucle sur fichiers du repertoire i = 1 For Each FsoFichier In FsoRepertoire.Files str = Split(FsoFichier.Name, ".") If str(UBound(str)) = "xls" Then Range("A" & i).Value = FsoFichier.Path i = i + 1 End If Next

---

Bonjour,

une autre approche via une fonction renvoyant un tableau (liste de fichiers) :

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

Function DirList(SpecFic, Optional Dossier = "", Optional Attrib As VbFileAttribute = vbNormal) If Dossier > "" And Right(Dossier, 1) <> "\" And _ Left(SpecFic, 1) <> "\" Then Dossier = Dossier & "\"   F = Dir(Dossier & SpecFic, Attrib) U = -(F > "") ReDim T(U To U) As String   Do Until F = "" ReDim Preserve T(1 To U) T(U) = Dossier & F F = Dir U = U + 1 Loop   DirList = T End Function     Private Sub Demo() L = DirList("*.txt", "D:\Tests")   For N = 1 To UBound(L) Debug.Print Format(N, "@@@ "); L(N) Next End Sub

---

Dans la procédure Demo, UBound(L) en ligne n°23 renvoie le nombre de fichiers contenus dans la liste (tableau) L …

Bonjour pour ces réponses :

En fait je pense avoir mal exposé mon problème

J'ai un répertoire qui contient plus ou moins de fichiers textes.

De ces fichiers textes j'extrait un certain nombre de valeurs.

A partir des valeurs extraites je veux tracer une courbe pour cela j'ai une fonction complexe qui utilise les valeurs extraites du fichier texte et qui utilise une variable x (variable de 1900 à 2300)

Chaque fichier texte permet de tracer une fonction et le but est de calculer les valeurs pour chaque fonction dans un tableau.

Je cherche donc à obtenir autant de variables que j'ai de fichiers txt pour calculer chaque fonction et ainsi tracer chaque fonction

Ais-je été plus précis ?

Bon je n'ai pas trouvé la solution mais j'ai triché en n'utilisant pas de tableaux mais en calculant et collant les valeurs dans mon classeur excel

Que je sache, on ne peut pas définir dynamiquement des variables, peut-être en méta programmation, mais ma connaissance sur ce sujet s'arrête à son nom. Ou alors passer par des objets de type chaîne mais ce n'est pas forcément pratique.

Par contre on peut définir en vba des tableaux à plusieurs dimensions sans soucis. On peut donc faire un tableau... de tableaux. Par exemple, imaginons que tes fichiers txt te fournissent chacun un tableau à deux dimensions, il suffit de déclarer un tableau à trois dimensions.

Bonjour,
Pour créer dynamiquement une variable, tu peux utiliser un tableau que tu redimensionne en fonction du nombre de fichier.
Si tu as besoin de quelque chose de plus compliqué, tu peux créer ton propre type de variable
Si tu compliques encore, utilise une Class allié avec une collection mais on n’en ait pas en cor là.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Type MyTableu Variable1 As Long Variable2 As String Variable3 As Boolean End Type Sub a()     Dim TableauFichierText() As String Dim TableauFichierText2() As MyTableu Dim I As Long For I = 0 To 10 ReDim Preserve TableauFichierText(I) ReDim Preserve TableauFichierText2(I) TableauFichierText(I) = "Fichier" & CStr(I) TableauFichierText2(I).Variable2 = "Fichier" & CStr(I) Next End Sub

---