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:=False, 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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
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 !!!!!
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
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
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é !!!!!!
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
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
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" a écrit dans le message de news:
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é !!!!!!
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" <FFO@discussions.microsoft.com> a écrit dans le message de news:
48D0D51F-54F5-46CE-BC6D-75832B44803C@microsoft.com...
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
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" a écrit dans le message de news:
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