Message 10 secondes plus tard

Bonjour à tous,

Je souhaiterais obtenir un msgbox (" sauvegarde réussie") 10 secondes après avoir appuyer sur le bouton sauvegarder

qqn sait il comment faire,

merci d'avance

Bonjour,

Pourquoi vouloir attendre 10 secondes ?

excuse moi mais je ne comprend pas l'utilité.

Bonjour,

En fait la sauvegarde met du temps, il y a une barre de progression qui s'affiche,

du coup, je voulais attendre que le fichier soit bien enregistré

est ce que je n'ai pas besoin d'attendre la fin de l'enregistrement pour afficher le message "sauvegarde réussie"?

Application.Wait(Now + TimeValue("00:00:10"))

J'allais mettre le même code que steelson.

Je l'aurai mis dans le module ThisWorkbook avbec l'événement "BeforeSave"

Je pense ca ira.

A plus

merci

Moi je l'aurais mis dans l'évenementielle AfterSave plutôt, qui permet de récupérer la valeur Success pour voir si l'enregistrement a fonctionné ou non :

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Application.Wait (Now + TimeValue("00:00:10"))
If Success = True Then MsgBox "Bien enregistré !" Else MsgBox "Erreur lors de l'enregistrement !"
End Sub

Je ne connaissais pas, mais dans ce cas où la vérification et faites après la sauvegarde, je pense qu'attendre 10 secondes n'est plus nécessaire.

Si j'ai bien compris, l'enregistrement prend approximativement 10 sec et grizou voulait une fois l'enregistrement terminé avoir le message et donc attendre 10 sec avant de l'afficher. Avec Aftersave + le test de sucess. Je pense qu'il est inutile de laisser le Application.Wait !

A plus !