Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment lister tous les classeurs ouverts et facilement déplacer entre les classeurs dans Excel?

Microsoft Excel vous permet d'ouvrir plusieurs classeurs en même temps, mais il n'est pas facile de basculer entre tous les classeurs ouverts. Vous souhaiterez peut-être répertorier tous les classeurs ouverts dans une liste pour pouvoir facilement basculer entre ces classeurs dans Excel. Dans cet article, nous allons vous montrer comment lister tous les classeurs ouverts pour faciliter la navigation dans Excel.

Lister juste tous les classeurs ouverts avec VBA

Listez tous les classeurs ouverts et passez facilement à un classeur avec VBA

Liste tous les classeurs ouverts et passez à un classeur avec Kutools pour Excel



flèche bleue droite bulle Lister juste tous les classeurs ouverts avec VBA

Dans cette section, vous allez apprendre à utiliser un code VBA pour répertorier tous les classeurs ouverts dans Excel.

1. presse autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module.

2. Ensuite, copiez et collez le code VBA ci-dessous dans l'éditeur de code.

VBA: liste tous les noms de classeur ouverts dans Excel

Sub ListWorkbooks()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum1 = Application.Workbooks.Count
	For i = 1 To xNum1
		xNum2 = Application.Workbooks(i).Sheets.Count
		WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
		For j = 1 To xNum2
			WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
		Next
	Next
End Sub

3. Exécutez le code VBA en appuyant sur F5 clé. dans le KutoolsforExcel boîte de dialogue, spécifiez une cellule pour placer la liste du classeur, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, tous les classeurs ouverts avec les feuilles de travail correspondantes sont listés.

Difficile à gérer le code VBA? Vous pouvez l'atteindre à travers le troisième méthode avec des clics.

flèche bleue droite bulle Listez tous les classeurs ouverts et passez facilement à un classeur avec VBA

Si vous souhaitez répertorier tous les classeurs pour passer facilement d'un classeur à un autre, essayez d'utiliser le VBA comme suit:

1. appuie sur le autre + F11 ouvrir le Microsoft Visual Basic pour applications fenêtre. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module.

2. Copiez et collez le code VBA suivant dans la fenêtre de module ouverte.

Code VBA: affichez tous les classeurs ouverts et passez à un classeur

Sub SelectWB()
	Dim xWBName As String
	Dim xWb As Workbook
	Dim xSelect As String
	For Each xWb In Application.Workbooks
		xWBName = xWBName & xWb.Name & vbCrLf
	Next
	xTitleId = "KutoolsforExcel"
	xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
	Application.Workbooks(xSelect).Activate
End Sub

3. appuie sur le F5 clé pour exécuter le code. Puis un KutoolsforExcel boîte de dialogue apparaît avec une liste de tous les classeurs ouverts. Si vous souhaitez passer à un classeur spécifié, entrez le nom de ce classeur dans la zone et cliquez sur OK bouton. Voir la capture d'écran:


flèche bleue droite bulle Liste tous les classeurs ouverts et passez à un classeur avec Kutools pour Excel

Avec le Volet de navigation of Kutools for Excel, tous les classeurs ouverts seront automatiquement répertoriés dans un volet pour vous permettre de naviguer facilement entre tous les classeurs ouverts. Il vous suffit de cliquer sur l'un des classeurs ouverts pour accéder immédiatement à ce classeur.

Si cet utilitaire est utile, vous pouvez Téléchargez et essayez l'essai gratuit maintenant!


Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.