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