eryk17
Messages postés138Date d'inscriptionlundi 27 mai 2002StatutMembreDernière intervention29 mai 2006
-
8 déc. 2004 à 10:49
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
9 déc. 2004 à 13:05
bonjour,
je suis en train de dévelloper un appli en vba sous Outllook
je voudrai que cette macro s'execute automatiquement par exemple dnas un intervalle de temps.
je voulai utiliser le timer sous vb mais lorsque je tape
application.ontime celui ci ne reconnait pas le "ontime"
contrairement dans le vba de exel qui lui l'accepte.
Par contre quand je vais dans outils, references et que je regarde les vba de exel et outlook les cases sont cochées identiquement.
Cela veut t'il dire que sous outlook la fonction timer n'est pas possible?
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 9 déc. 2004 à 13:05
Salut,
je ne fais qu'appliquer l'exemple fourni avec VBA et ça tourne !!!!
Private Sub Application_Startup()
Do
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) = vbYes Then
PauseTime = 5 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop
Finish = Timer ' Définit l'heure de fin.
TotalTime = Finish - Start ' Calcule la durée totale.
MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
End
End If
Loop
End Sub
A toi de modifier le code en consequence
____________________________________________________