Bonjour à tous,

J'essai de lire un fichier ligne par ligne et de spliter

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
20
21
22
23
24
25
26
27
28
Set oFso = CreateObject("Scripting.FileSystemObject")
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=xxxxxx;UID=autonet;PWD=xxxx;DATABASE=xxxxx"
chemin= Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Const ForReading = 1, ForWriting = 2 
Dim oFso, f, ligne
 
 
 
 Set f = oFso.OpenTextFile(chemin & "liste.cfg", ForReading)
  while Not f.AtEndOfStream 
    msgbox ("==>" &f.ReadLine)
	ligne = Empty
  ligne = f.ReadLine
 ' monTab = Split(ligne,"|")
   'msgbox (monTab(2))
'requeteaexecuter = replace(requete, "societe",monTab(0))
 
 
 
 
  Wend
  f.Close
 
  
  REM rs.Close
REM Set rs=nothing
Ci-dessous le fichier liste.cfg
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
212121|ok AUTO|004|bob@bob.fr
212121|ok AUTO|004|bob@bob.fr
Il réalise un premier passage, puis après il m'écrit "l'entré dépasse la fin du fichier erreur 800a003E" Quelle est mon erreur?

Merci

guigui69