Bonjour,
Sache qu'ici on ne fourni pas du "prêt à l'emploi";...
Je t'invite à lire la charte du site :ICI
Toutesfois, voici de quoi commencer ton programme :
Sub recupInfos()
Dim UrlTogo As String
Dim plage As Range
Set plage = Range("A1:A9000")
For Each cell In plage
UrlTogo = cell.Value
Debug.Print "Ouverture de la page : " & UrlTogo
Debug.Print SourceCodeInternetPage(UrlTogo)
Debug.Print "---------------------------"
Next
End Sub
Function SourceCodeInternetPage(strURL As String)
Dim CodeSource As String
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
'Ouverture de la page
IE.Visible = False ' Ou True
IE.Navigate URL:=strURL
Do Until IE.ReadyState = 4
DoEvents
Loop
'Récupération du code source
CodeSource = IE.Document.body.innerHTML
'Fermeture de l'objet IE
IE.Quit
SourceCodeInternetPage = CodeSource
End Function
Cordialement,
Jordane
22 déc. 2013 à 12:04
22 déc. 2013 à 12:11
De nombreux tutos sont disponibles sur le net;
Comme je te l'ai dit nous ne ferons pas le programme à ta place.
Nous n'aidons que sur des soucis techniques précis (et clairement identifiés par le "demandeur").