[VBA] Ouvrir/Fermer des pages sur Internet Explorer

Cette démo permet
- d'ouvrir une instance d'Internet Explorer
- d'ouvrir une page dont le lien est dans une cellule
- la substituer par d'autres page.
- Accessoirement elle dispose d'un timer
Prérequis
'ajouter la référence'Microsoft Internet Controls
'Dans l'éditeur VBA >> Outils >> Référence et cocher 'Microsoft Internet Controls
La macro
Sub OuvrirFermerPageIE() Dim Cel As Range, Plage As Range Dim Start As Single, Delay As Integer Dim IE As InternetExplorer 'La plage où se trouve les liens Application.DisplayAlerts = False Set Plage = Sheets("Feuil1").[A1:A5] Delay = Sheets("Feuil1").[G8].Value If Delay = 0 Then Delay = 15 Set IE = New InternetExplorer IE.Visible = True On Error GoTo IEfermerOuErreur 'si ont ferme le navigateur For Each Cel In Plage 'Ouvrir la page IE.Navigate Cel.Value 'Attendre que la page soit prète While IE.ReadyState <> READYSTATE_COMPLETE DoEvents Wend 'Timer (Wait ralenti les autres appli) Start = Timer + Delay ' pour 15 seconde While Timer < Start DoEvents Wend Next Cel 'Fermer le navigateur IE.Quit IEfermerOuErreur: Set IE = Nothing Application.DisplayAlerts = True End Sub
Note : Fonctionnera dans d'autre application Office mais il faudra adapter les adresses.
Téléchargement
Démo: classeur Excel 97-2003 : Ouvrir Fermer IEFonctionne sur Excel 2007
Ce document intitulé « [VBA] Ouvrir/Fermer des pages sur Internet Explorer » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.