VBA et développement Web

Version imprimable

13/09/2011, 10h26
Arkham46

VBA et développement Web

Bonjour à tous,

Vous pouvez sur cette discussion commenter ce nouvel article :
VBA et développement Web

Au menu :
- contrôles internet (Internet Explorer et WebBrowser) ;
- librairie HTML (MSHTML) ;
- librairie XML (MSXML2) ;
- requêtes HTTP (MSXML2 ou WinHTTP) ;
- silverlight ;
- API WinInet et URL Monikers ;
- API Winsock.

Pensez également à ajouter une note. ("Noter la discussion" en haut à droite)
Votre avis nous intéresse. :mrgreen:

:merci:
19/09/2011, 17h17
loufab

Pas tout lu mais ce que j'ai lu c'est :ccool:
21/09/2011, 05h51
Invité

Salut

Excellent, encore un article qui montre bien que le VBA sur Office ne se contente pas de piloter Access, Word, Excel, etc..., mais est aussi ouvert sur le monde extérieur.

Philippe
21/09/2011, 07h38
Didier Gonard

super :ccool:

et office 64 bits n'a pas été oublié ;)
22/09/2011, 12h14
Invité

Bonjour
Quel boulot
Quel somme de connaissances.
:ccool:

Ce n'est plus un tuto mais une encyclopédie.
Impossible à lire d'une traite, mais on peut y revenir quand le besoin s'en fait sentir.
De plus cela ouvre plein de perspectives insoupçonnées..

Pour moi, il est à placer dans les tutoriels "référence"...
Encore Bravo.

Bonjour,

j'ai parcouru les différentes pages de l'article VBA et développement Web et tenais à t'adresser mes félicitations pour le travail accompli.

J'ai cependant relevé le fait que la procédure contenue dans

Citation:

IV-D. Modifier dynamiquement une page

ne fonctionne pas chez moi (la structure Html de la page a peut-être été modifiée) : le bouton créé n'est plus positionné correctement et le clic n'est plus fonctionnel.

J'ai repris le code en suivant tes explications afin de le rendre à nouveau fonctionnel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Private WithEvents oButton As MSHTML.HTMLButtonElement 'initialement MSHTML.HTMLInputElement
 
Private Function oButton_onclick() As Boolean
'on renseigne la zone de texte
oButton.Document.forms("gbqf").elements("q").Value = "Arkham46" 'le nom du formulaire a été modifié (initialement oButton.document.forms("f"))
'on lance la recherche par le clic sur le bouton
oButton_onclick = True
End Function
 
Private Sub UserForm_activate()
Dim oNav As SHDocVw.InternetExplorer
Dim oDoc As MSHTML.HTMLDocument
Dim oDiv As HTMLDivElement 'les span ont fait place à une balise Div
 
Set oNav = New SHDocVw.InternetExplorer
oNav.Visible = True
oNav.Navigate "http://google.fr"
' Attente avec timeout de 10 s
If WaitIE(oNav, 10) Then
   ' 10 s écoulées et page non chargée
   MsgBox "Time out!"
Else
   ' Page chargée, on continue
   Set oDoc = oNav.Document
   'on accède à la Div contenant les boutons "Recherche Google" et "J'ai de la chance" via son Id
   Set oDiv = oDoc.getElementById("gbqfbwa")
   'on créé le nouveau bouton
   Set oButton = oDoc.createElement("button")
   oButton.className = "gbqfba"
   oButton.Name = "btnA"
   oButton.textContent = "Recherche Arkham46"
   oButton.ID = "gbqfbc"
 
   'on l'insère dans la Div
   oDiv.appendChild oButton
End If
End Sub
 
' Attend que la page internet soit chargée
' pTimeOut est un time out en secondes (WaitIE vaut True si Timeout)
Public Function WaitIE(oIE As InternetExplorer, Optional pTimeOut As Long = 0) As Boolean
Dim lTimer As Double
lTimer = Timer
Do
  DoEvents
  If oIE.ReadyState = READYSTATE_COMPLETE And Not oIE.Busy Then Exit Do
  If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
      WaitIE = True
      Exit Do
  End If
Loop
End Function

Cela fonctionne en l'état chez moi.
Encore toutes mes félicitations pour ce beau tutoriel.
A+

11/12/2017, 12h30
LucWalraf

MERCI !

Un million de mercis pour ce tutoriel, un bonheur dans la forme (juste le bon rythme, drôle et efficace), il m'a ouvert des horizons enthousiasmants (je pratique vba depuis des années mais perds des heures depuis toutes ces années sur des recherches web que je ne savais pas automatiser).

J'ai mis quelques-unes des réalisations que m'ont permis votre tuto en ligne sur mon site perso : lucwalraf.com
Et je me suis permis de vous citer dans les remerciements :https://lucwalraf.com/a-propos/
Si cela vous gêne n'hésitez pas à me le dire : je retirerai la mention bien sur.

Encore merci à vous,

Luc W.