Étape 13 : Lecture de texte brut
Dim Textstring
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile ("fichier.txt", 1)
TextString = objText.ReadAll
Dim Textstring
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile ("fichier.txt", 1)
TextString = objText.ReadAll