Manipulation d'Internet Explorer via VB

Les rubriques (actu, forums, tutos) de Développez

Réseaux sociaux

Discussion forum

Le 03/03/2012, par Qwazerty, Expert Confirmé Sénior

Salut

Je vous propose un tutoriel sur l’interaction entre Excel VBA et Internet Explorer.

Les sujets développés sont

la déclaration des variables

la navigation dans le code source d'une page

récupérer et saisir des données, agir sur des boutons, des liens, des cases à cocher...

le téléchargement de fichiers

adapter ses méthodes d'interaction en fonction du contenu de la page

un rappel sur l'utilisation des espions et des point d'arrêt

Afin d'y parvenir, vous trouverez dans ce document des exemples concrets mettant en pratique une partie des méthodes fournies par VBA pour manipuler le contenu d'une page Web. Nous développerons par exemple un code visant à obtenir les résultats du loto sportif ou encore la sélection d'un trajet sur le site de la SNCF.

Merci de laisser sur ce topic votre avis sur mon document, toutes les critiques constructives sont les bienvenues

.

Si vous avez la flemme de taper, pensez à minima à noter la discussion

Bonne lecture et bon apprentissage

++
Qwaz

'Activer les références
'   - Microsoft HTML Objects Library
'   - Microsoft Internet Controls
'   - Microsoft shell control et automation

'Dans un module
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'---
Const StUrl = "C:/Users/Saugedic/Documents/MonSite/CreationPage.html"
'---

'*********************************************
' Se Connecter à une page Html local
'*********************************************
Sub connexion()
On Error GoTo ERR_Sub

'Afficher la page html
'---------------------
Dim ie As InternetExplorer
Set ie = New InternetExplorer

With ie
    .Visible = True
    .navigate StUrl
    'affiche la page et .. perd la connection - ie.readystate vide -> err
    '   Do Until .readyState = 4
    '       DoEvents
    '   Loop
End With
' Attendre la fin du chargement
Sleep (300)

'Se (re)connecter
Dim objShell As Object, obj As Object
Set objShell = New Shell

For Each obj In objShell.Windows
    If TypeName(obj.document) = "HTMLDocument" Then
        If obj.LocationName Like "*CreationPage*" Then
        'Des que l'on trouve l'instance chargée - Reconnecter la page
            Set ie = obj
            Exit For
        End If
    End If
Next

'Ecrire dans la page
'---------------------
' Dim IEdoc As Object - Set IEdoc = ie.document

' Formulaire de connexion ...
     ie.document.all("autre").Value = "login"
     ie.document.all("Bouton1").Click
 'F12 sur Google pour connaitre les noms des champs    
     
GoTo FIN_Sub
'--------------------

ERR_Sub:
    MsgBox "Erreur : " & Err.Number & " (" & Hex(Err.Number) & ")" & vbCrLf & Err.Description
    On Error GoTo 0

FIN_Sub:
'--------------------
ie.Quit
Set ie = Nothing
'Set IEdoc = Nothing

'---
End Sub


'Pour tester
'*********************************************
' Créer une page html
'*********************************************
Sub test()
On Error GoTo ERR_Sub
   
'Creer la page html
'--------------------
Dim xFile As Integer

xFile = FreeFile
Open "C:\Users\Saugedic\Documents\MonSite\CreationPage.html" For Output As xFile

Print #xFile, "<HTML>"
    Print #xFile, "<HEAD>"
    Print #xFile, "<TITLE>Ma page de saisie</TITLE>"
    Print #xFile, "</HEAD>"

    Print #xFile, "<BODY>"
    Print #xFile, "<FORM>" & _
        "<input type='text' size='10' name='autre'><br>" & _
        "<Input type=button name='Bouton1' value='Validez'>" & _
        "</FORM>"
    Print #xFile, "</BODY>"
Print #xFile, "</HTML>"
    
Close xFile


Exit Sub
'---
ERR_Sub:
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
    Error 0
'---
End Sub

Sub PremierIEGet()
'Déclaration des variables
Dim FirstIE As New InternetExplorer 'cette instance contiendra la page qui charge en boucle
 
Dim IE As InternetExplorer 'Dim IE As New InternetExplorer
Dim objShell As Shell
Dim obj As Object
 
FirstIE.Navigate "www.google.fr"
FirstIE.Visible = True ' a vous de voir, il est possible de la garder masquée, mais attention a ne pas oublier de la fermer avant de finir la macro
 
'Ensuite on recherche la nouvelle instance d'IE qui a été ouverte par la 1ère instance...
'Ici il faudra peut-être mettre une petit Sleep histoire d'être sur que cette 2ème instance se soit chargée
'Je suis pas fan des sleep, mais bon... des fois...
 
'On charge la collection des appli lancés
Set objShell = New Shell
'On boucle
For Each obj In objShell.Windows
    'On regarde si l'appli est de type Document internet
    If TypeName(obj.document) = "HTMLDocument" Then
        'On regarde si c'est bien l'instance qui a chargé Google
        If obj.LocationName = "Google" Then
            'On pointe cette instance via la variable IE
            Set IE = obj
            'On quite la boucle
            Exit For
        End If
    End If
Next
 
'Ensuite on utilise IE
'...
'...
'IE.Visible = True 'Logiquement celle-ci doit déjà être visible
IE.Navigate "www.developpez.com"
 
 
'Fermeture d'IE
'IE.Quit
 
'On libère la variable IE (bien que VBA s'en occupe à la fin de la procédure)
Set IE = Nothing
End Sub