OK sur MsgBox automatique aprés 2 secondes

La dernière question pour ce soir, mes yeux voit deux écrans.

Lorsque l'utilisateur quitte l'application en cliquant sur un bouton le code ci-dessous s'exécute.

Je souhaiterais avoir l'apparition de la msgbox sans le bouton OK et que cette dernière reste à l'écran 2 secondes et qu'ensuite le classeur se ferme.

Merci de votre aide et bonne soirée.

Sub Quitter()

ActiveWorkbook.Save

MsgBox "A bientôt, See you soon!!!"

ActiveWorkbook.Close

End Sub

Bonsoir,

au lieu d'utiliser un msgbox, créer un userform que tu utiliseras comme message de remerciement. Ajoute ce code dans le userform

Private Sub UserForm_Initialize()
    Application.OnTime Now + TimeValue("00:00:02"), "Fermeture"
End Sub

et celui ci dans un module. Si tu l'ajoutes dans le code du userform ça ne marchera pas

Public Sub Fermeture()
       Unload UserForm1
End Sub

au lieu de ActiveWorkbook.Close tu devrais mettre Application.quit, comme ça excel ce fermera.

Sub Quitter()
ActiveWorkbook.Save
UserForm1.Show 'La form de remerciement
Application.Quit
End Sub

Bonjour le forum,

Merci pour la solution.

Ca fonctionne.

Bonne journée