Bonjour,

J'aimerais savoir si il existe une autre manière de coder ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
While Not src.atendofline 'tant qu'on n'est pas en fin de fichier on saute des colonnes
     src.Skip (1)
Wend
 
nbzone = (src.Column - 22) / 21 / 2
 
While Not src.AtEndOfStream 'tant qu'on n'est pas en fin de fichier on saute des lignes
     src.skipline
Wend
 
nbligne = src.Line
 
ReDim Tableau_Extraction_Temperature(1 To nbligne, 0 To nbzone) As Single

Le problème c'est que j'ai une fichier texte avec plus de 51 000 lignes, donc cette manière de coder prends pas mal de temps.
Si vous connaissez une manière d'aller plus vite, je vous en serais fortement reconnaissant

Merci !