Exécuter une fonction au bout de X secondes avec un timer

Bonjour,

Dans mon application VBA, les utilisateurs se connecte via un formulaire et je voudrais les déconnecter automatique au bout de X secondes. Pour cela j'ai pensé à l'utilisation d'un timer mais je ne sais pas trop comment m'y prendre. Ce que je voudrais c'est une fonction dans le genre :

When Timer = 15

Deconnecter(user)

Bonjour,

Dans le module du formulaire, dans Private Sub UserForm_Initialize()

Private Sub UserForm_Initialize()
    Application.OnTime Now + TimeValue("00:00:15"), "Fermeture" 'ferme le formulaire dans 15 secondes
    UserForm1.Show
End Sub

Dans un module standard

Sub Fermeture()
    Unload UserForm1
End Sub

Cdlt

Merci beaucoup pour ta réponse elle m'a été très utile !