Changer le texte d'une textarea dans une Sub

Bonjour,

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

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

Code:

---

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:

---

<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 :

Citation:

---

Envoyé par HTAEdit 32-bit

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

---

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

Code:

---

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

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:

---

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

---

Citation:

---

Code:

---

<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.

Quand j'utilise ce

Code:

---

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.

Citation:

---

Envoyé par ProgElect

[...]
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.

Citation:

---

Envoyé par l_autodidacte

[...]
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

Citation:

---

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.

Citation:

---

Envoyé par l_autodidacte

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

:salut:
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 :king:
:merci: