Discussion :

[thomasaurelien]

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
Const WINHTTP_REQUEST_VERSION = "WinHttp.WinHttpRequest.5.1"
 
Private Const base_url As String = "xxxxxxxxxx"
Public Const obj_http As Object = CreateObject(WINHTTP_REQUEST_VERSION) 'erreur de compilation
 
Function GetHTML(ByVal suite_url As String) As HTMLDocument
    obj_http.Open "GET", base_url & suite_url, False
    obj_http.Send
 
    If obj_http.Status = 200 Then
        Dim HTMLDoc As HTMLDocument
        Set HTMLDoc = New HTMLDocument
        SaveHTMLToFile base_url & suite_url, obj_http.ResponseText
        HTMLDoc.body.innerHTML = obj_http.ResponseText
        Set GetHTML = HTMLDoc
    Else
        Set GetHTML = Nothing
    End If
 
    Set obj_http = Nothing
End Function

Je comptai crée une constante pour ne pas crée l'object "obj_http" a chaque fois que j’appelle la fonction GetHTML
mais j'ai une erreur de compilation : type de données incorrect pour une constante

j'ai bien coché la réference WinHTTP Services,version 5.1

Du coup j'ai fait ceci :

Code :

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

1
2
3
4
5
Function CreateWinHttpRequest() As Object
    Dim objHTTP As Object
    Set objHTTP = CreateObject(WINHTTP_REQUEST_VERSION)
    Set CreateWinHttpRequest = objHTTP
End Function

[Franc]

Salut, je ne crois pas qu'on puisse déclarer une constante en tant qu'objet, d'où l'erreur de compilation.

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
Const WINHTTP_REQUEST_VERSION = "WinHttp.WinHttpRequest.5.1"
Private Const base_url As String = "xxxxxxxxxx"
Public obj_http As Object
 
Sub Initialize()
    Set obj_http = CreateObject(WINHTTP_REQUEST_VERSION)
End Sub
 
Function GetHTML(ByVal suite_url As String) As HTMLDocument
    obj_http.Open "GET", base_url & suite_url, False
    obj_http.Send
 
    If obj_http.Status = 200 Then
        Dim HTMLDoc As HTMLDocument
        Set HTMLDoc = New HTMLDocument
        SaveHTMLToFile base_url & suite_url, obj_http.ResponseText
        HTMLDoc.body.innerHTML = obj_http.ResponseText
        Set GetHTML = HTMLDoc
    Else
        Set GetHTML = Nothing
    End If
End Function

Il faut appeler la sub Initialize avant d'utiliser la fonction GetHTML.

[thomasaurelien]

Merci pour aide Franc