Bonjour à tous, je suis nouveau sur le forum et c'est mon premier post.
Mon problème: Je dois dans un classeur Excel récupérer le code d'une page web contenant des données (string, integer, date)
Pour cela, j'ai développé un sub qui marchait très bien sous Xp mais qui sous Seven perd une variable objet en cour de route.
Mon code:
Dim UR1 As String, pat As String
Dim codesource As String, IE As Object
UR1 = Range(Range("A2" ).Value).Value '(URL du site)
pat = Range("A4" ).Value '(Répertoire de travail)
Set IE = CreateObject("InternetExplorer.Application" )
IE.visible = False
IE.Navigate URL:=UR1
While IE.Busy
DoEvents
Wend
codesource = IE.document.body.innerHTML
IE.Quit
Open pat & "code source.txt" For Output As #1
Print #1, codesource
Close #1
Sous Seven, "IE" est vide après le Busy de la page HTLM !
Je sèche sur la cause de la perte de la variable.
Si quelqu'un y comprend quelques choses...
Merci
---------------
Westdl