Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Microsoft Office Discussion :

VBA et développement Web


Sujet :

Microsoft Office

  1. #1
    Responsable Access

    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.


  2. #2
    Rédacteur/Modérateur

    Pas tout lu mais ce que j'ai lu c'est
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

  3. #3
    Invité
    Invité(e)
    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

  4. #4
    Expert éminent
    super

    et office 64 bits n'a pas été oublié
    Didier Gonard

    Dernier tutoriel :
    Le VBA qu'est ce que c'est ?
    Tutoriels : Voir la liste de mes tutoriels Excel & VBA et mon site pro sur ma Page DVP
    Cours et tutoriels pour apprendre Excel
    N'oubliez pas de mettre : ..quand c'est le cas !

  5. #5
    Rédacteur/Modérateur

    Bonjour
    Quel boulot
    Quel somme de connaissances.


    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.
    Plus j'avance et plus je sais que je ne sais rien. Et comme j'essaie d'aller loin .....
    Pas de demande d'aide par Mp.... sinon
    Mes tutoriels sur http://jdgayot.developpez.com
    Beaucoup de réponses à vos questions dans la Faq ou dans les tutoriels


  6. #6
    Membre confirmé
    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
    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 :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
    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+

  7. #7
    Membre à l'essai
    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.