Une macro Excel pour fermer tous les classeurs à la fois - des tétines

L'une des choses les plus ennuyeuses dans Excel est la fermeture de nombreux classeurs à la fois. Pour chaque classeur que vous avez ouvert, vous devez activer le travail, le fermer et confirmer l'enregistrement des modifications. Excel n'a pas de moyen facile de les fermer tous en même temps. Cette petite macro s'occupe de cet ennui.

Fonctionnement de la macro

Dans cette macro, la collection Workbooks parcourt tous les classeurs ouverts. Lorsque la macro parcourt chaque classeur, elle les enregistre et les ferme:

Sub Macro1 () 'Etape 1: Déclarez vos variables Dim wb As Workbook' Etape 2: Parcourez les classeurs, enregistrez et fermez Pour chaque wb Dans Workbooks wb. Fermer SaveChanges: = True Suivant wb End Sub

L'étape 1 déclare une variable Object qui représente un objet Workbook. Cela vous permet d'énumérer tous les classeurs ouverts, en capturant leurs noms au fur et à mesure.

L'étape 2 fait simplement une boucle dans les classeurs ouverts, les enregistrant et les fermant. Si vous ne voulez pas les enregistrer, modifiez l'argument SaveChanges de True à False.

Comment utiliser la macro

Le meilleur endroit pour stocker cette macro est dans votre classeur de macros personnelles. De cette façon, la macro est toujours disponible pour vous. Le classeur de macros personnelles est chargé chaque fois que vous démarrez Excel. Dans la fenêtre de projet VBE, il est nommé personal. xlsb.

1. Activez Visual Basic Editor en appuyant sur Alt + F11.

2. Cliquez avec le bouton droit sur personal. xlb dans la fenêtre du projet.

3. Choisissez Insérer → Module.

4. Tapez ou collez le code dans le nouveau module.

Si vous ne le voyez pas personnellement. xlb dans votre fenêtre de projet, il n'existe pas encore. Vous allez enregistrer une macro en utilisant un classeur de macros personnelles comme destination.

Pour enregistrer la macro dans votre classeur de macros personnel, ouvrez la boîte de dialogue Enregistrer la macro. Dans la liste déroulante Store Macro In, sélectionnez Personal Macro Workbook. Ensuite, enregistrez simplement quelques clics de cellule et arrêtez l'enregistrement. Vous pouvez supprimer la macro enregistrée et la remplacer par celle-ci.