VBA - simuler atl+tab pour copier contenu page web

[Kiko]

Bonjour,

J'espère que ce post ne fait pas doublon mais après plusieurs heures de recherche, je fais appel à vos services.

Je souhaite compléter une macro existante en demandant a Excel d'aller sur une page web déjà ouverte (IE ou Firefox, cela m'est égal), de copier l'ensemble du contenu et de coller ce contenu dans une feuille Excel

Mes dernières recherches m'amènent à essayer les fonctions sendkeys pour simuler "Alt+Tab", Ctrl+a et Ctrl+c :

Ci-dessous la partie de la macro concernée :

SendKeys "%{TAB}"
SendKeys "^a"
SendKeys "^c"
SendKeys "%{TAB}"
'va sur la feuille brouillon
Sheets("brouillon").Select
'colle le contenu dans A1
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
False


.... mais ça me sélectionne la feuille brouillon en entier sans rien dedans...

 

[Kiko]

Re : VBA - simuler atl+tab pour copier contenu page web

J'ai réussi... ;-))

'va sur la page web, sélectionne tout, copie
SendKeys "%{TAB}", True
SendKeys "^a", True
Application.Wait (Now + 0.5 / 3600 / 24)
SendKeys "^c", True
Application.Wait (Now + 0.5 / 3600 / 24)
'va sur la feuille brouillon
SendKeys "%{TAB}", True
Sheets("brouillon").Select
'colle le contenu dans A1
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
False
Range("A1").Select

 

[MJ13]

Re : VBA - simuler atl+tab pour copier contenu page web

Bonjour kiko

Tu as aussi sleep pour arrêter en milisecondes.

Fait une recherche avec millliseconde sur le forum 🙂.