Discussion :

[paulolol]

Bonjour,

Même si le titre paraît flou, je vais vous expliquer :

J'ai une Sub Update() dont voici le code :

Code VBScript :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Update()
	Set objFS = CreateObject("Scripting.FileSystemObject")
	strFile = "D:\Lycée\Espace d'echange\chat.txt"
	Set objFile = objFS.OpenTextFile(strFile)
	Do Until objFile.AtEndOfStream
    	content.value = content.value & objFile.ReadLine & Chr(13)
	Loop
	objFile.Close
End Sub

Et j'ai le code HTML suivant, le tout dans un fichier HTA :

Code HTML :

Sélectionner tout - Visualiser dans une fenêtre à part

<textarea name="content" class="content" id="content" rows="5" cols="40" disabled="true"></textarea>

La Sub, comme vous pouvez l'imaginer, est sensée recueillir le texte du fichier et de l'afficher dans la textarea.
Cependant, lors de l'execution (sur HTAEdit), j'obtiens ceci :

Error : Objet requis : 'content'
Code : 800A01A8

HTAEdit met aussi une flèche jaune au niveau de la ligne

Code VBScript :

Sélectionner tout - Visualiser dans une fenêtre à part

Do Until objFile.AtEndOfStream

(ligne 5 sur l'extrait de code que je vous ai donné).

Pouvez-vous m'aider à résoudre ce problème ?
paulolol