emmanuel75
XLDnaute Junior
Bonsoir à tous,
J'ai programmé une macro qui navigue sur internet ( avec une synthaxe comme :
Dim IE As New InternetExplorer
Dim x As Integer
Dim Doc As HTMLDocument
IE.Navigate ("http://www.monsite.com")
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set Doc = IE.document
For x = 90 To Doc.Links.Length - 1
Cells(x - 89, 1) = Doc.Links(x)
Next
Application.Wait Now() + TimeValue("00:00:05")
End Sub)
Le souci c'est que çà marche sous XP (tout ordi) mais pas sur vista (tout ordi)
une fenêtre d'erreur s'affiche...
pour "Set Doc = IE.document"
Quelqu'un a déjà eu un problème similaire ?????????????
Merci à quiconque me donnera des pistes...
Emmanuel
J'ai programmé une macro qui navigue sur internet ( avec une synthaxe comme :
Dim IE As New InternetExplorer
Dim x As Integer
Dim Doc As HTMLDocument
IE.Navigate ("http://www.monsite.com")
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set Doc = IE.document
For x = 90 To Doc.Links.Length - 1
Cells(x - 89, 1) = Doc.Links(x)
Next
Application.Wait Now() + TimeValue("00:00:05")
End Sub)
Le souci c'est que çà marche sous XP (tout ordi) mais pas sur vista (tout ordi)
une fenêtre d'erreur s'affiche...
pour "Set Doc = IE.document"
Quelqu'un a déjà eu un problème similaire ?????????????
Merci à quiconque me donnera des pistes...
Emmanuel
