Macro pour rechercher tous les classeurs ouverts, Excel VBA

Si vous vous embêtez avec des classeurs Excel, il est souvent nécessaire d’ouvrir plusieurs classeurs à la fois et d’utiliser la combinaison de touches  sauter d’un dossier à l’autre pour comparer des valeurs entre elles ou insérer des liens. Mais comment utiliser une macro pour déterminer quels classeurs sont actuellement ouverts? La macro  vous donne la réponse:

Sub DeterminerLesClasseursOuverts ()

Dim monclasseur As Workbook

Dim i As Integer

  Sheets.Add

i = 1

 For Each monclasseur In Workbooks

      Cells(i, 1) = monclasseur.Name

      i = i + 1

   Next monclasseur


End Sub

 

Utilisez la méthode Add pour insérer une nouvelle feuille de calcul dans votre classeur. Ensuite, configurez une boucle et travaillez sur tous les classeurs ouverts. Ceux-ci sont mis à votre disposition via la propriété Workbooks.

Tableau: Rédigez tous les classeurs ouverts

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

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

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