Discussion :

[Tentative]

Bonsoir,

J'essaie depuis ce matin de récupérer la source html d'une page web dans une String.

Je suis tombé sur ce post.


Le code :

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
'Activez la reference Microsoft Internet Controls
Dim IE As InternetExplorer
Dim Contenu As String
 
Set IE = CreateObject("InternetExplorer.Application")
 
With IE
    .Visible = False
    .Silent = True
    .Navigate "http://www.leSite.com"
        Do Until .ReadyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement
 
    Contenu = .Document.DocumentElement.innerHTML
    .Quit
End With
Set IE = Nothing
 
'Teste le résultat
MsgBox Contenu

Pour que celà fonctionne, la référence Microsoft Internet Controls doit être activée, or je ne la vois pas dans ma liste...

Pour info, j'utilise Access 2007.


Merci d'avance pour vos éclairsissements

[LedZeppII]

Bonsoir,

chez moi (XP) c'est la dll shdocvw.dll dans Windows\system32

Utilise le bouton parcourir dans la fenêtre des références vba.

Bon courage

[Tentative]

Un grand merci !

Exactement comme tu me l'as dis, j'ai sélectionné le fichier et ensuite Microsoft Internet Controls est apparu dans la liste.