Mettre une tempo

[mavean]

Bonjour suite de mon programme
je souhaite mettre une tempo de 3 secondes entre les 2 MsgBox
Comment faire ?
Merci.

La Macro est ci dessous

Private Sub CommandButton6_Click()
If MsgBox("AVEZ VOUS BIEN ENREGISTRER VOTRE FICHIER COMPLET AVANT DE SUPPRIMER LES FEUILLES", vbYesNo, "Voulez-vous continuer ?") = vbNo Then Exit Sub
If MsgBox("ATTENTION LA VALIDATION NE VA LAISSER SUR CE CLASSEUR EXCEL QUE LA FEUILLE DES STOCKS A ENVOYER A DUNKERQUE", vbYesNo, "Voulez-vous continuer ?") = vbNo Then Exit Sub
Application.DisplayAlerts = False
Sheets("F1").Delete
Sheets("F2").Delete
Sheets("ARCHIVE").Delete
Sheets("F4").Delete
Sheets("CONTROLE").Delete
Application.DisplayAlerts = True
End Sub

 

[lvlat]

Re : Mettre une tempo

Salut,
Tu n'as pas du chercher longtemps : FAQ Excel
Et pour info il y a une faute dans ton message, "enregistré" et pas "enregistrer" AVEZ VOUS BIEN ENREGISTRER VOTRE FICHIER COMPLET
Mat

 

[Hervé]

Re : Mettre une tempo

salut à vos deux

mavean ? juste pour ma culture, pourquoi tu veux mettre une tempo entre les deux MSGBOX.

la deuxième ne s'exécutant que lorsque l'on à validé la première, donc l'utilisateur à tout le temps de décider de sa réponse, non ?

a plus

 

[MANTALO]

Re : Mettre une tempo

Bonsoir, j'utilise : ApplicationWait et la durée.
a+