Bonjour,

J'ai un fichier constitué de plusieurs lignes
Je veux récupérer chaque mot séparer par le vide dans un tableau.

Voici le fichier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
02/04/2009	09:17:33	Engine version                                              =5300 k
02/04/2009	09:17:33	DAT version                                                 =5568
02/04/2009	09:17:33	Number of virus signatures in EXTRA.DAT                     =None
02/04/2009	09:17:33	Names of viruses that EXTRA.DAT can detect                  =None
02/04/2009	09:17:30	Scan Started	BXG1DX5WR2D1J\pfsadm	On-Demand Scan
02/04/2009	09:17:44	Scan Summary	BXG1DX5WR2D1J\pfsadm	Scan Summary
02/04/2009	09:17:44	Scan Summary	BXG1DX5WR2D1J\pfsadm	Processes scanned    : 0
02/04/2009	09:17:44	Scan Summary	BXG1DX5WR2D1J\pfsadm
******* 
Scan on remscan_TSCM_Dispatch using 136.129.10.70\pfsadm compleated on 
 04-02-2009  09:17:46  Thursday
*******
Voici mon code:
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
Public Sub LectureFichierTexte(NomFichier As String)
Dim TabMots() As String

Dim Chemin As String
Dim i As Integer

Chemin = ThisWorkbook.Path & "\Virus_Reports\rvs-" & NomFichier & ".txt"
i = 0
  ' Ouverture de Tagada.ini en lecture. S'il n'existe pas, une erreur est générée
  ' S'il existe, il est lu ligne par ligne :
  Open Chemin For Input As #1
  While EOF(1) = False
    Line Input #1, LigneSuivante
    TabMots = Split(LigneSuivante, " ")
    MsgBox TabMots(i)
  Wend
  Close #1
End Sub
En affichant la valeur de TabMots, je n'arrive pas à avoir le résultat désiré comme ci-dessous.

Exemple: Pour les deux premières lignes

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
TabMots(0)= "02/04/2009"
TabMots(1)= "09:17:33"
TabMots(2)= "Engine version"
TabMots(3)= "=5300" 
TabMots(4)= "k"	
TabMots(5)= "02/04/2009"
TabMots(6)= "09:17:33"
TabMots(7)= "DAT "
TabMots(8)= "version"
TabMots(9)= "=5568"
Merci de votre aide