Discussion :

[Vincent32]

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 ?

[jfontaine]

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 :

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
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

[Marc-L]

Bonjour,

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

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
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 …

[Vincent32]

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 ?

[Vincent32]

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

[Soraphiroth]

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.

[Invité]

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 :

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
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