Public Sub Gethtml()
dim txt
Dim dest, sourcecode As String
Dim IE As Object, objDoc As Object
Dim myURL As String
'l'url du site intranet, mais peu importe le site
myURL = Range("B1").Value
Set IE = CreateObject("internetexplorer.application")
IE.navigate myURL
'Wait for page to load!
Do
If IE.readyState = 4 Then
IE.Visible = False
Exit Do
Else
DoEvents
End If
Loop
Set objDoc = IE.document
'destination du fichier txt temporaire
dest = "D:\Shared\test\temp.txt"
'Html
Set fsys = CreateObject("Scripting.FileSystemObject")
Set txt = fsys.CreateTextFile(dest)
filecode = FreeFile
sourcecode=objDoc.body.innerHTML
'Ouverture fichier txt temporaire pour copie donnees
Open dest For Output As filecode
Print #filecode, sourcecode
Close #filecode
'reste a faire l'argument de recherche mais avant ça, je dois pouvoir exploiter le code source..
'copie du code source vers une cellule (juste pour test)
'Sheets("Source").Range("A1").Value = objDoc.body.innerHTML
Set objDoc = Nothing
Set IE = Nothing
End Sub