doublenico
XLDnaute Junior
Bonjour à tous,
Je souhaite mettre en place depuis excel sur plusieurs postes informatiques une série d'évenements :
- Ouverture d'une page internet explorer pendant 5 seconde et la fermer
- Ouverture d'une nouvelle page IE pendant 5 seconde et la fermer
- Ouverture d'un document Excel (via une URL) pendant 20 sec et le fermer
Boucler sur ces instructions pendant 1 heure par exemple
J'arrive à ouvrir et fermer mes pages, j'arrive à ouvrir l'excel mais je ne sais pas comment le fermer ni changer le sleep en enfin je ne sais pas comment boucler sur ces instructions pendant une heure
Voici mon code (et oui j'ai bossé un peu quand même)
Merci d'avance
Je souhaite mettre en place depuis excel sur plusieurs postes informatiques une série d'évenements :
- Ouverture d'une page internet explorer pendant 5 seconde et la fermer
- Ouverture d'une nouvelle page IE pendant 5 seconde et la fermer
- Ouverture d'un document Excel (via une URL) pendant 20 sec et le fermer
Boucler sur ces instructions pendant 1 heure par exemple
J'arrive à ouvrir et fermer mes pages, j'arrive à ouvrir l'excel mais je ne sais pas comment le fermer ni changer le sleep en enfin je ne sais pas comment boucler sur ces instructions pendant une heure
Voici mon code (et oui j'ai bossé un peu quand même)
Code:
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub programme()
Dim IE As New InternetExplorer
Dim tableau(3) As String
tableau(1) = "http://www.yahoo.fr"
tableau(2) = "http://www.google.fr"
' Ouverture de l'excel depuis une base documentaire d'un intranet, vous n'aurez donc pas accès à mon document !
tableau(3) = "http://dsc.pcinfo.inetpsa.com/document/126128347.pc1fm"
Dim i As Integer
For i = 1 To 3
Set IE = CreateObject("internetExplorer.Application")
With IE
.Visible = True
.Navigate tableau(i)
'5 secondes d affichage
Sleep 5000
IE.Quit
End With
Next
End SubMerci d'avance
Dernière édition: