Insérer cette fonction dans un module (ou autre) puis appeler la procédure en entrant en paramètre le nombre de secondes pendant lesquelles vous souhaitez que votre prog fasse une pause.
Exemple: Call FaireUnePause(10)
Et voila
Source / Exemple :
sub FaireUnePause(NbSec as long)
Dim tempotemp
tempotemp = Now()
Do Until (DateDiff("s", tempotemp, Now()) > NbSec)
Loop
end sub
Conclusion :
jemax@free.fr
http://jemax.free.fr
13 janv. 2009 à 16:36
28 mars 2002 à 12:38
Je te suggère plutot :
Sub FaireUnePause2LeRetour(NbSec As Long, _
Optional ByVal bBloqueTout As Boolean = True)
Dim HeureLimite As Date
'calcule la limite à atteindre
TimeLimite = DateAdd("s", NbSec, Time)
'boucle d'attente
While Time <= TimeLimite
'le reste du monde fonctionnera quand même
If Not bBloqueTout Then DoEvents
Wend
End Sub
Tu peux comme cela choisir de bloquer le reste de ton appli on non.
Il y aurait une solution encore + efficace pour ne pas trop bloquer la cpu, basée sur un timer, mais bon, j'ai pas trop de temps... :-)
Hop
22 juin 2001 à 18:47
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.