Envoi par Sendkeys de données sur une page intranet en VBA sous Excel

Bonjour,

Je n'arrive pas à envoyer des données ou touches sur une page web par Sendkeys : existe-t-il un autre moyen ?
Merci,

Code:

---

1 2 3 4 5 6 7 8 9

'Déclaration des variables Dim IEdoc As HTMLDocument Dim IE As Object ' ouvrir la page Set IE = CreateObject("internetexplorer.application") IE.navigate "https://www.developpez.com/" IE.Visible = True WaitIE IE ' attendre le chargement Set IEdoc = IE.document

---

Aucune des lignes ci-dessous ne fonctionne :

Code:

---

1 2 3 4 5 6 7

ie.SendKeys "{Down}" ' bas de page ie.SendKeys "{F8}" ' Touche F8 IEdoc.SendKeys "{F8}" ' Touche F8 Application.IEdoc.SendKeys "{F8}", True ' Touche F8 IEdoc.SendKeys "^S" ' Ctrl + S ie.SendKeys "^S" ' Ctrl + S

---

Salut,
je crois que tu ne peux pas utiliser SendKeys directement sur IE il faut l'utiliser sur l'application Active. Pour mettre le focus sur I.E, l'astuce consiste à rajouter un IE.visible = True par exemple juste avant l'envoi de touche.
Voici un code qui fonctionne chez moi avec Excel 2010 et IE 11 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub TestEnvoiTouches() 'Déclaration des variables Dim IEdoc As HTMLDocument Dim IE As Object ' ouvrir la page Set IE = CreateObject("internetexplorer.application") IE.navigate "https://www.developpez.com/" IE.Visible = True WaitIE IE ' attendre le chargement Set IEdoc = IE.document IE.Visible = True 'Application.SendKeys "{PGDN 4}" ' 4 fois page down 'Application.SendKeys "{F7}" Application.SendKeys "{END}" Application.SendKeys "^s" ' CTRL S End Sub

---

A Noter que Down ne descend que d'une ligne , c'est END qui envoie à la fin de la page.
Les touches de contrôle doivent être en minuscule.
Je ne sais pas ce que tu veux faire avec F8 ? chez moi avec IE 11 cela ne fait rien.

Nullosse, le plus nul des apprentis programmeur

@Nullosse :

Cela ne fonctionne pas chez moi, il ne se passe rien (j'ai Excel 2016 et IE11)

Comment lances-tu la macro ?
moi je la lance à partir de la fenêtre de code VBA.
Sinon tu peux essayer de remplacer le :

Code:

---

1 2	IE.Visible = True Application.SendKeys "{END}"

---

par :

Code:

---

1 2 3

IE.Visible = False IE.Visible = True Application.SendKeys "{END}"

---

Sinon il y a la solution seleniumbasic qui permettrait d'utiliser un navigateur autre que IE11 ( google chrome, firefox, edge chromium)

Désolé Nullosse,
en fait, je le faisais en pas à pas via la touche F8 et cela ne faisait rien
par contre, quand je la lance via la touche F5 (Excéuter Sub...) cela fonctionne bien même sans le "IE.Visible = True"

Encore merci !
Bonne journée ;)