Corrigé 17.10 Extraire une information d’une page web

Sub ExtraireCours() 
'=============================================================== 
' Référencement des bibliothèques Microsoft Internet Controls 
' et Microsoft HTML Object Library 
'=============================================================== 
    Dim IE As SHDocVw.InternetExplorer 
    Dim laPage As HTMLDocument 
    Dim contenu As IHTMLElementCollection 
    Dim article As IHTMLElement 
   ...