Copy Donnees

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

Bonjour,

à tester,

    Print Sheets("Feuil2").Range("A1") = IE.Document.body.innerHTML
    Sheets("Feuil2").Cells.Copy Destination:=Worksheets("Sheet1").Range("A1")

Ca ne fonctionne pas ?

re,

ça irait mieux avec tout les données en main,

fichier excel 1
Rechercher des sujets similaires à "copy donnees"