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

[ProgElecT]

Salut
Tout laisse penser que l'objet objFile n'est pas valide, le fichier n'est pas ouvert (nom mal orthographié ou chemin non valide ....)
Essais ce code pour déterminer le problème.

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
Sub Update()
	Const ForReading = 1
	Set objFS = CreateObject("Scripting.FileSystemObject")
	strFile = "D:\Lycée\Espace d'echange\chat.txt"
	On Error Resume Next
	Set objFile = objFS.OpenTextFile(strFile, ForReading)
	If Err then
		MsgBox "Erreur N°" & Err.Number & vbNewLine & "Description" & vbNewLine & Err.Description
		Exit Sub
	End If
	Do Until objFile.AtEndOfStream
    	content.value = content.value & objFile.ReadLine & Chr(13)
	Loop
	objFile.Close
End Sub

Code :

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

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

Peut être que si tu ne spécifies pas le nom de classe, le problème disparaitra aussi, car le débogueur n'indique pas forcement la bonne ligne qui a provoqué l'erreur.

[l_autodidacte]

Quand j'utilise ce

Code :

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

1
2
3
Sub Window_OnLoad()
  Call Update
End Sub

, le texte est importé dans le textarea sans problème et sans aucun message d'erreur.
De même si je le mets dans l'évènement OnClick d'un bouton.
Je ne vois donc pas pourquoi il ne marche pas pour toi.

[paulolol]

[...]
Peut être que si tu ne spécifies pas le nom de classe, le problème disparaitra aussi, car le débogueur n'indique pas forcement la bonne ligne qui a provoqué l'erreur.

Merci, le code que tu m'as donné fonctionne. Je ne sais pas pourquoi le miens ne fonctionne pas.

[...]
Je ne vois donc pas pourquoi il ne marche pas pour toi.

Ce n'est pas ici que je souhaiterais mettre le Call Update() mais plutôt dans une boucle qui ferais le travail toutes les 5 secondes. Mais ce n'est actuellement pas mon problème. Je referais un sujet si besoin est.

@++ et merci
paulolol

[l_autodidacte]

Ce n'est pas ici que je souhaiterais mettre le Call Update() mais plutôt....

C'était simplement une façon de dire que le code fonctionne quand on appelle la Sub Update.
Une suggestion si possible : quand tu mets pour Textarea disabled="true", le texte est estompé(sauf si c'est voulu), il y a la possibilité d'utiliser, à la place, ReadOnly="ReadOnly" pour un texte bien lisible et un Textarea non modifiable.

[paulolol]

Une suggestion si possible : quand tu mets pour Textarea disabled="true", le texte est estompé(sauf si c'est voulu), il y a la possibilité d'utiliser, à la place, ReadOnly="ReadOnly" pour un texte bien lisible et un Textarea non modifiable.

Merci, c'est bon à savoir, car non, ce n'était pas voulu, mais ça ne dérangeait pas non-plus.

@++
paulolol

[hackoofr]

Je présume que c'est un chat en réseau local écrit en vbscript avec une interface en HTA ?
Est-ce-que vous pouvez nous partager le code en question car je crois que c'est intéressant comme code