Macro pour fermer tous les classeurs sauf un, Excel VBA

Si vous avez plusieurs classeurs ouverts dans Excel, vous pouvez le faire très bien   ll avec la combinaison de touches   Aller et venir entre les classeurs individuels. Allez donc au classeur sur lequel vous souhaitez continuer à travailler et fermez tous les autres. Pour ce faire, utilisez la macro suivante.

Sub FermezTousLesDossiersSaufCeluiActif ()

Dim monclasseur As Workbook

For Each monclasseur In Application.Workbooks

  If monclasseur.Name <> ThisWorkbook.Name Then monclasseur.Close

Next

End Sub

Tous les classeurs actuellement ouverts sont répertoriés dans l’objet de collection Workbooks. Vous pouvez l’utiliser dans une boucle For Each qui compare le nom du classeur actif avec les noms des classeurs qui se trouvent dans la collection. Vous utilisez ensuite la méthode Close pour fermer tous les classeurs sauf celui actif.

Pour savoir combien de classeurs sont actuellement ouverts, appliquez la propriété Count à l’objet de collection Workbooks.

Sub ComptageDesClasseursOuverts ()

  MsgBox " Il y a actuellement " & _

   Application.Workbooks.Count & _

   " Fichier (s) ouvert (s) ", vbInformation

End Sub

 

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