Discussion :

[Maume]

Bonjour à tous

Je cherche un moyen de copier coller le contenus d'une page internet
Le code ci dessous permet de copier la page dans le presse papier mais pas de le coller dans excel.

Je pense que c'est du au fait que excel passe en tache de fond quand on utilise internet explorer, mais je sais pas comment le corriger...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Copypaste()
    Set myIE = CreateObject("InternetExplorer.Application")
    myIE.navigate "http://fr.wikipedia.org/wiki/ASIT"
    myIE.Visible = True
    Application.Wait (Now + TimeSerial(0, 0, 5))
    SendKeys "^a"
    SendKeys "^c"
    Sheets("Feuil1").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

[Invité]

Bonjour,

Essayez avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Essai()
 
Dim Wbk As Workbook
 
 Set Wbk = Workbooks.Open("http://fr.wikipedia.org/wiki/ASIT")
 
 Set Wbk = Nothing
 
End Sub

Cordialement.