page web macro qui plante

Le
STEPH B
Bonjour,
Voici mon code: est ce que quelqu'un pourrait me dire pourquoi je plante
en fait je plante lors du rappatriement du web sur excel

Sub connexion()
Dim IE As InternetExplorer
Dim IEdoc As Variant
Dim maPageHtml As HTMLDocument
Dim derlg1 As Variant
If Range("a1") = "" Then
d = 1
Else
derlg1 = Cells(Rows.Count, "A").End(3).Row
d = derlg1
End If
Set IE = New InternetExplorer
IE.Visible = True
For j = d To 13
' IE.Navigate
''' la page s'ouvre bien
Range("f" & j).Select
Selection.Hyperlinks(1).Follow NewWindow:úlse, AddHistory:=True
' Do Until IE.ReadyState = 4
' DoEvents
' Loop

'''''''''' JE PLANTE LA
'et en fait je voudrais qu'il me mette en premiere colonne la zone texte et
referme la page web en cours et recommence ainsi
' de suite
' quelqu'un a une idée?

Set maPageHtml = IE.Document
textePage = maPageHtml.documentElement.innerText
Range("a" & d) = textePage
Set IEdoc = IE.Document
d = d + 1
Next
end sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #21230611
Salut à toi

Aprés avoir cherché sur la toile je te propose ces lignes qui semble
fonctionnées:

Dim IE As InternetExplorer
Dim IEdoc As Object
Dim maPageHtml As HTMLDocument
Dim derlg1 As Variant
If Range("a1") = "" Then
d = 1
Else
derlg1 = Cells(Rows.Count, "F").End(3).Row
d = derlg1
End If
Set IE = New InternetExplorer
IE.Visible = True
For j = 13 To d
IE.Navigate (Range("F" & j))
Do Until IE.ReadyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
Set DOCelement = IEdoc.getElementsByName("q").Item
Set maPageHtml = IE.Document
textePage = maPageHtml.documentElement.innerText
Range("a" & j) = textePage
IEdoc.Close
Next

Les adresses des sites sont en colonne F à partir de la ligne 13
Le résultat en colonne A en regard de chaque adresse

Fais des essais et dis moi !!!!!
FFO
Le #21230851
Rebonjour à toi

Une petite imperfection concernant la fermeture des pages HTML m'invite à te
proposer ce correctif

Utilises en lieu et place de ma première proposition celle-ci :

Dim IE As InternetExplorer
Dim IEdoc As Object
Dim maPageHtml As HTMLDocument
Dim derlg1 As Variant
If Range("a1") = "" Then
d = 1
Else
derlg1 = Cells(Rows.Count, "F").End(3).Row
d = derlg1
End If
Set IE = New InternetExplorer
IE.Visible = True
For j = 13 To d
IE.Navigate (Range("F" & j))
Do Until IE.ReadyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
Set DOCelement = IEdoc.getElementsByName("q").Item
Set maPageHtml = IE.Document
textePage = maPageHtml.documentElement.innerText
Range("a" & j) = textePage
Next
IE.Quit


Celà devrait mieux faire

Tiens moi informé !!!!!!
STEPH B
Le #21231261
désolé mais ca ne marche pas
la macro tourne dans le vide et je ne sais pas ou ca plante....

est ce que tu veux un fichier excel pour illustrer?


"FFO"
Rebonjour à toi

Une petite imperfection concernant la fermeture des pages HTML m'invite à
te
proposer ce correctif

Utilises en lieu et place de ma première proposition celle-ci :

Dim IE As InternetExplorer
Dim IEdoc As Object
Dim maPageHtml As HTMLDocument
Dim derlg1 As Variant
If Range("a1") = "" Then
d = 1
Else
derlg1 = Cells(Rows.Count, "F").End(3).Row
d = derlg1
End If
Set IE = New InternetExplorer
IE.Visible = True
For j = 13 To d
IE.Navigate (Range("F" & j))
Do Until IE.ReadyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
Set DOCelement = IEdoc.getElementsByName("q").Item
Set maPageHtml = IE.Document
textePage = maPageHtml.documentElement.innerText
Range("a" & j) = textePage
Next
IE.Quit


Celà devrait mieux faire

Tiens moi informé !!!!!!


FFO
Le #21236301
Rebonjour à toi

Un exemple sur ce lien

http://www.cijoint.fr/cjlink.php?file=cj201002/cij09X6lzu.xls

Récupères le ouvres le

En colonne A

Cellule A1 est remplie pour correspondre à ta condition :

If Range("a1") = "" Then

afin de basculer sur

Else
derlg1 = Cells(Rows.Count, "F").End(3).Row

En A13 et A14 ce qu'avec le code j'ai récupéré des sites dont tu trouveras
l'adresse en respectivement F13 et F14

En colonne F à partir de la ligne 13 les adresses des sites (dans mon
exemple F13 et F14)

Efface le résultat obtenu en A13 et A14

Les références :

Microsoft HTML Object Library
et
Microsoft Internet Controls

doivent être cochées

Exécutes la Macro "Traitement"

Va constater le résultat en A13 et A14

Il devrait être identique aux données que tu viens d'effacer et que j'ai
obtenu de la même manière

Fais des essais et dis moi !!!!!!!
Publicité
Poster une réponse
Anonyme