Temps de pause

[Famu]

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]

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]

Eh oui, ça fonctionne !

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

Salut,
Famu.