Bonjour,
j'ai un script qui enregistre des donnés au niveau d'un fichier au format .txt . j'ai un autre script qui me retourne le nombre de ligne de ce fichier.

le problème est : quand je créé un fichier manuellement et j'etulise CountLine pour retourne le nombre de ligne sa fonction bien.

Par contre quand j'enregistre le fichier avec SaveFileTxt puis j'appelle le script CountLine pour compter le nombre de ligne sa me retourne 1 même si je voie que j'ai plusieurs ligne.

J'ai pensée peut être que ces un problème d'encodage au moment de l'enregistrement ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
   Sub SaveFileTxt (Value)
	Set filesys = CreateObject("Scripting.FileSystemObject")
    Set demofolder = filesys.GetFolder(OutFilePath)
 
	Set filetxt = demofolder.CreateTextFile("resulta", True)
 
	filetxt.WriteLine(Value)
    filetxt.Close
    wait 4
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
    Sub CountLine ()
		Set oFsObject = CreateObject("Scripting.FileSystemObject")
 
        Set New_File = oFsObject.OpenTextFile("Resulta.txt", 1)
        'recuperation d'un tableau de x lignes
        Ref_CountLign = Split(Ref_File.ReadAll, vbNewLine)
 
        New_File.Close       
        Ref_count_Line= UBound(Ref_CountLign)
		msgbox Ref_count_Line '==> 1
    End Sub
Merci D'avance.