Temps de pause

Famu · 13 Octobre 2005

Bonjour,

Comment mettre un temps de pause entre deux instruction :

Sheets('4041').Select
If Range('A4') > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If

TEMPS de PAUSE : 1 seconde

Sheets('4042SK').Select
If Range('A4') > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If

etc...

Encore un grand merci à ce Forum,

Famu.

GIBI · 13 Octobre 2005

bonjour,

Wait permet de temporiser jusqu'à une heure donnée, donc si tu veux attendre 10'

Application.Wait (Now + TimeValue('0:00:10'))

Now donne l'heure en cours

et ça fonctionne

Famu · 13 Octobre 2005

Eh oui, ça fonctionne !

Encore merci Gibi. Deux fois que tu m'aides dans la même semaine : c'est sympa.

Salut,
Famu.

Temps de pause

Famu

Guest

GIBI

Guest

Famu

Guest

Discussions similaires