tempo dans macro !

Bonjour j-pascal,
Pour la tempo uniquement: Application.Wait Now + TimeValue("00:00:03")
3 pour 3 secondes
Cordialement
RV


"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
O8IEIHE0FHA.560@TK2MSFTNGP12.phx.gbl...

Bonsoir à tous (et à toutes ;-) ),

Dans la macro suivante :

Option Explicit

Sub Macro1()

Dim reponse

Range("C6:E11").Select
ActiveSheet.PageSetup.PrintArea = "$C$6:$E$11"
ActiveWindow.SelectedSheets.PrintPreview
reponse = MsgBox("Voulez-vous imprimer ?", vbYesNo + vbQuestion +
vbDefaultButton2, "print")
If reponse = 6 Then

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Else: MsgBox ("Bye !")

End If
End Sub


Question : comment pourrais-je avoir une temporisation de 2 ou 3 secondes
pour l'affichage de "vue avant impression" afin d'éviter à l'utilisateur
d'avoir à fermer la fenêtre pour choisir d'imprimer ou non ?

Merci d'avance pour vos réponses ;-)

JP

Bonsoir RV,

Merci pour ta réponse. La tempo fonctionne "dans l'absolu" car je ne peux
l'appliquer ici ;-(


Range("C6:E11").Select
ActiveSheet.PageSetup.PrintArea = "$C$6:$E$11"

ActiveWindow.SelectedSheets.PrintPreview
Application.Wait Now + TimeValue("00:00:03")

reponse = MsgBox("Voulez-vous imprimer ?", vbYesNo + vbQuestion +
vbDefaultButton2, "print")
If reponse = 6 Then

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Else: MsgBox ("Bye !")

En fait, il faudrait qu'après l'affichage de la vue avant impression, je
puisse, à l'aide d'une ligne de macro FERMER la fenêtre (ce que je ferais
précéder de ta formule). Mais si je fais un enregistrement automatique "vue
avec impression" et "fermer", cette dernière action ne s'inscrit pas dans la
macro ! Je ne comprends pas pourquoi !

As-tu une idée ?

Merci

JP