Discussion :

[peofofo]

Bonjour à tous,

Avant de charger le contenu du flux, j'aimerais recharger la page pour
regénerer le contenu.

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Activate()
If InternetGetConnectedState(0&, 0&) = 1 Then
'On actualise le flux rss
site_web = "http://www.essai.com/regeneration_flux_rss.php"
'instenciation de Internet Explorer
Set IE = CreateObject("internetexplorer.application")
'lancement d'Internet Explorer(IE) avec ouverture de la page web contenant le scipt PHP
IE.Navigate (site_web)
 
'J'aimerais mettre ici une tempo de minimum 10 secondes avant de traiter la suite
 
    Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.Async = "false"
    xmlDoc.Load ("http://www.essai.com/rss/convocations_flux.xml")
 
Set xmlDoc = Nothing
Else
    MsgBox "Erreur Veuillez vous connecter a internet", 0 + 16, "Erreur de connection"
End If
End Sub

Si vous avez des idées

[aalex_38]

Peut être peux-tu regarder du côté de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnTime

[ucfoutu]

Bonjour,

si ce n'est que pour une durée d'attente aussi courte (10 secondes), l'utilisation de la fonction Timer suffira sans faire chauiffer ton processeur (10 secondes, c'est peu)

Genre, donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
debut = Timer
  do while timer < debut + 10
  doevents
loop

[peofofo]

Merci à tous les 2