[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.
