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