Discussion :

[fazpedro]

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 :

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

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 :

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

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

[Nullosse]

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 :

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

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

[fazpedro]

@Nullosse :

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

[Nullosse]

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 :

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

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

par :

Code :

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

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)

[fazpedro]

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