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...
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...
Dernière édition: