Macro pour fermer les classeurs inutiles, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x