Re : copier coller de toute une page internet
bonjour,
c'est toujours triste les fils qui laissent sur leur faim,..
j'ai trouvé une solution bien bourrin certes, avec des boucles pour lui laisser le temps de réfléchir sans le brusquer sans quoi il plante... à régler...
l'avantage c'est que loggé sur firefox il ouvre un deuxième onglet copie, referme l'onglet et ça roule
je vous met le code ça peut servir ...
Sub firefoxII()
RetVal = _
Shell("C:\progra~1\mozill~1\firefox.exe https://www.boursorama.com/opcvm/opcvm.phtml?code=804504§eur=epargne", 1)
For i = 1 To 1000000000
Next i
'CTRL A (Sélectionner tout)
SendKeys "^a", True
For i = 1 To 100000000
Next i
'CTRL C(Copier)
SendKeys "^c", True
For i = 1 To 100000000
Next i
SendKeys "^w", True
For i = 1 To 1000000000
Next i
AppActivate "Microsoft Excel"
Cells(1, 1).Select
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:=False
End Sub
et surprise!! en le faisant sous firefox je récupère du texte à la place des images, pas sous IE par contre...