Pour économiser des ressources, vous pouvez fermer les classeurs inutiles. Pour ce faire, vous définissez un tampon horaire après lequel un classeur doit être fermé.

Sub ClasseurSeFermeApres2Minutes ()

Dim l As Long

Const tampon As Long = 120

l = Timer

    Do While Timer < l + tampon

        DoEvents

    Loop

   ActiveWorkbook.Save

   ActiveWorkbook.Close

End Sub

Tout d’abord, définissez la durée après laquelle Excel doit fermer un classeur intact. Vous effectuez l’entrée en quelques secondes. Enregistrez ensuite une valeur de temps actuelle dans la variable l à l’aide de la fonction de minuterie. La fonction Time renvoie une valeur Single qui indique le nombre de secondes écoulées depuis minuit. Vous pouvez utiliser cette spécification de temps pour interroger la durée qui s’est écoulée depuis le démarrage de la macro . Dans une boucle Do While, vous pouvez vérifier quand le temps du tampon variable a été dépassé. Ensuite, enregistrez et fermez le classeur actif.