Discussion :

[P50]

Bonjour,

je souhaiterais à partir d'un fichier texte (*.txt) qui contient n1 lignes et n2 colonnes (colonnes séparées par des tabulations) récupérer ces données dans un tableau dynamique à 2 dimensions:

Pour l'instant j'arrive à réccupérer mes données dans un tableau à 1 dimension:

Voir le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim T() As String
Open "C:\Monfichier.txt" For Input As #1
i = -1
Do While Not EOF(1)
i = i + 1
ReDim Preserve T(i)
Input #1, T(i)
Loop
Close #1
End Sub

Avec ce code tout marche bien.....

Mon Problème:

- Je n'arrive pas à reconnaitre les tabulations dans le fichier texte et ainsi remplir mon tableau dynanique à 2 dimensions.

[SfJ5Rpw8]

VBA sous Excel surement ?
si 2000

utilise split.. et rajoute ce code ...à la suite du tiens..

Code :

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

1
2
3
4
5
6
7
8
9
Dim L() As String
For i = 0 To UBound(T)
   L = Split(T(i), vbTab)
   ' traitement de la ligne...
   For j = 0 To UBound(L)
    Debug.Print L(j) & "|";   'Affiche résultat dans fenêtre exécution
   Next
    Debug.Print 'Saut de ligne
Next

[P50]

Merci bbil pour la réponse, ça marche bien!

Effectivement je suis sous Excel VBA 2000.

A+