Bonjour,
Je sollicite votre aide sur un code que j'aimerais remplacer c'est a dire l'actuel me permet de creer un classeur temp sur le quelle est copier une page internet puis le copie sur mon claseur active.
ce que je souhaite c'est le copier directement sur ma feuille2 et me semble plus simple
Je vous remercie
sfile = Environ("TEMP") & "\zippyweb.xls"
sSheet = "zippyweb"
sshortfile = "zippyweb.xls"
strResponse = IE.Document.body.innerHTML
Open sfile For Output As #1
Print #1, strResponse
Close #1
If hostbook Is Nothing Then
Set hostbook = ThisWorkbook
End If
Workbooks.Open sfile
VBA.DoEvents
On Error Resume Next
Set guestbook = Workbooks(sshortfile)
guestbook.ActiveSheet.Cells.Copy Destination:=hostbook.Worksheets("Sheet1").range("A1")
Application.DisplayAlerts = False
guestbook.Close
Application.DisplayAlerts = True