Option Explicit 'Version du 9 juillet 2014 'Ouvrir un fichier texte et le stocker dans un tableau Dim objFSO, PathToFile, MyFileTextArray, objMyTextFile, objMyTextStream, FileContent, intUpper, CompteurLigne 'Déclaration des constantes Const ForReading = 1 Const ForWritting = 2 Const ForAppending = 8 const TristateFalse = 0 PathToFile = "C:\MonFichierALire.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") set objMyTextFile = objFSO.GetFile(objFSO.GetAbsolutePathName(PathToFile)) set objMyTextStream = objMyTextFile.OpenAsTextStream(ForReading, TristateFalse) FileContent = objMyTextStream.Read(objMyTextFile.Size) MyFileTextArray = Split(FileContent, vbCrLf) intUpper = Ubound(MyFileTextArray) If Err.Number = 0 Then 'If the array is not empty For CompteurLigne = LBound(MyFileTextArray) To Ubound(MyFileTextArray) Wscript.echo "Ligne " & CompteurLigne & " : " & MyFileTextArray(CompteurLigne) Next End If objMyTextStream.Close Set objMyTextStream = Nothing Set objFSO = Nothing Wscript.echo "Finish"