Discussion :

[ABBAN270]

Salut a tous
jai écrie ce petit code mais:

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
16
17
18
19
20
21
22
23
24
25
26
Private Sub Command1_Click()
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim ElementCol As Object
 
website = Text1.Text
 
Set request = CreateObject("MSXML2.XMLHTTP")
 
request.Open "GET", website, False
 
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
 
request.send
 
response = StrConv(request.responseBody, vbUnicode)
 
html.body.innerHTML = response
 
Set ElementCol = html.getElementsByClassName("forumicon")
 
Text2.Text = ElementCol(2).id
 
End Sub

quand je fais exécution avec (F5) marche normale
mais quad je créer le fichier exécutable et je lance l'execution
il m'affiche cette erreur

[ABBAN270]

jai essayer plusieurs methode
mais toujours le meme probleme
c'est bizarre
ya t-il une explication pour ce message s.v.p