Ouverture et fermeture successive de Page Web et de doc Excel

[doublenico]

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)

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 Sub

Merci d'avance

 

[doublenico]

Re : Ouverture et fermeture successive de Page Web et de doc Excel

Peut on développer ce genre de chose dans un autre langage?
Merci

 

[doublenico]

Re : Ouverture et fermeture successive de Page Web et de doc Excel

Un petit peu d'aide car je bloque vraiment 🙂

Merci d'avance

 

[porcinet82]

Re : Ouverture et fermeture successive de Page Web et de doc Excel

Salut,

Peut etre quelques éléments de réponses :
Pour fermer ton doc excel :
- soit tu ouvres un fichier deja sauvegarder et tu peux utiliser Application.Workbooks("Nom du classeur").Close
- soit tu ouvres un fichier (qui sera donc selectionner) et tu peux le fermer avec Application.ActiveWindow.Close

Pour ce qui est de changer, le sleep, pourquoi ne pas passer par des variables? Tu lui met une variable pour tes pages et une autre pour excel.

Enfin pour boucler pendant une heure, peut etre utiliser un truc de ce genre Do While Time() < maintenant + #1:00:00 AM# avec la variable maintenant qui serait défini par : maintenant = Time()


@+