Menu
Donnez votre avis

[VBA] Ouvrir/Fermer des pages sur Internet Explorer

Posez votre question


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 IE
Fonctionne sur Excel 2007
Jean-François Pillou

Cet article est régulièrement mis à jour par des experts sous la direction de Jean-François Pillou, fondateur de CommentCaMarche et directeur délégué au développement numérique du groupe Figaro.

En savoir plus sur l'équipe CCM

Article original publié par jak58. Traduit par lermite222. Dernière mise à jour le 24 octobre 2018 à 08:50 par pijaku.

Ce document intitulé «  [VBA] Ouvrir/Fermer des pages sur Internet Explorer  » issu de CommentCaMarche (https://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.

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme