XL 2021 Activer classeurs ouverts

Usine à gaz · 17 Septembre 2023

Bonjour à toutes et à tous de bon dimanche matin lol

Je bute sur un code que je ne parviens par à écrire malgré des tentatives et recherches.
Alors, une fois encore, je me tourne vers nos chers ténors....

Voici mon besoin :
J'ai plusieurs classeurs ouverts : classeur A - classeur B - classeur C
Mon classeur actif est le A
Je voudrais activer le B ou le C

Je n'y arrive pas Grrr !!!

Auriez-vous le bon codes ?
Grand mercie à toutes et à tous...
Et Bon dimanche,

Staple1600 · 17 Septembre 2023

Bonjour @Usine à gaz , le fil

[moue dubitative de bon matin itou]
Tentatives et recherches...
[/moue dubitative de bon matin itou]

Pourtant en une seule tentative (avec l'enregistreur de macros)

Code:

Sub Macro1()
Windows("Classeur1").Activate
Windows("Classeur2").Activate
End Sub

C'est déjà un point de départ, non ?

Staple1600 · 17 Septembre 2023

En poursuivant, on testera donc
Sub Activer_Classeur2()
Windows("Classeur2").Activate
End Sub

Sub Activer_Classeur3()
Windows("Classeur3").Activate
End Sub

Les tests ici étaient sur des classeurs non enregistrés

Pour des classeurs enregistrés et ouverts, il suffit d'ajouter l'extension
Ce qui donnerait par exemple

Enrichi (BBcode):

Sub Activer_ClasseurB()
Windows("classeur B.xlsx").Activate
End Sub

Staple1600 · 17 Septembre 2023

Re,

@Usine à gaz
Ma proposition ne fonctionne pas sur ton PC ?
Ou tu ne l'as pas encore testée ?

Usine à gaz · 17 Septembre 2023

Staple1600 à dit:
En poursuivant, on testera donc
Sub Activer_Classeur2()
Windows("Classeur2").Activate
End Sub

Sub Activer_Classeur3()
Windows("Classeur3").Activate
End Sub

Les tests ici étaient sur des classeurs non enregistrés

Pour des classeurs enregistrés et ouverts, il suffit d'ajouter l'extension
Ce qui donnerait par exemple

Enrichi (BBcode):

Sub Activer_ClasseurB() Windows("classeur B.xlsx").Activate End Sub

Bonjour JM
Merci pour ton retour.
Pour moi pas facile, j'ai pourtant beaucoup cherché...

J'ai plusieurs classeurs qui peuvent être ouverts :
- Windows("isitelImmobRdV ImenNF2.xlsm").Activate
- Windows("isitelImmobRdV SondaNF2.xlsm").Activate
- Windows("isitelImmobRdV StephanieNF2.xlsm").Activate

Ne faut-il pas tester si les fichiers sont ouverts ?

Staple1600 · 17 Septembre 2023

Re

la question iniatile était

Mon classeur actif est le A
Je voudrais activer le B ou le C

Donc 3 classeurs ouverts

Si il y a N classeurs ouverts, alors il faut faire une boucle

On peut aussi faire simplement Affichage/Changer de de fenêtre
et cliquer alors sur un classeur qui apparait dans la liste des classeurs ouverts

(C'est d'ailleurs ce que j'ai fait pour obtenir mon code VBA avec l'enregistreur de macros)

Phil69970 · 17 Septembre 2023

Bonjour à vous 2

Pour rebondir à cette phrase

Usine à gaz à dit:
Ne faut-il pas tester si les fichiers sont ouverts ?

Si le fichier est fermé la question est comment ouvrir un fichier fermé

Edit Staple à eu la même réflexion que moi ....

Staple1600 · 17 Septembre 2023

Re

Exemple de boucle

Code:

Sub Liste_Classeurs_ouverts()
Dim tmp$, WBK As Workbook
For Each WBK In Application.Workbooks
    tmp = tmp & WBK.Name & vbCr
Next
MsgBox tmp, vbInformation, "Liste des classeurs ouverts"
End Sub

EDITION: Bonjour @Phil69970

Usine à gaz · 17 Septembre 2023

Staple1600 à dit:
Re

la question iniatile était

Donc 3 classeurs ouverts

Si il y a N classeurs ouverts, alors il faut faire une boucle

On peut aussi faire simplement Affichage/Changer de de fenêtre
et cliquer alors sur un classeur qui apparait dans la liste des classeurs ouverts

(C'est d'ailleurs ce que j'ai fait pour obtenir mon code VBA avec l'enregistreur de macros)

Re-JM
En fait, je l'ai eu avec
On Error Resume Next
Windows("isitelImmobRdV ImenNF2.xlsm").Activate
Windows("isitelImmobRdV SondaNF2.xlsm").Activate
Windows("isitelImmobRdV StephanieNF2.xlsm").Activate

Staple1600 · 17 Septembre 2023

Re

Donc pour se compliquer la vie (*)
(alors que Affichage/Changer de fenêtre fait la chose facilement)

Code:

Sub Choisir_dans_Classeurs_ouverts()
Dim tmp$, Activation_W$, WBK As Workbook
For Each WBK In Application.Workbooks
    tmp = tmp & WBK.Name & vbCr
Next
Activation_W = _
            Application.InputBox("Choisir un classeur en saisissant son nom:" _
            & vbCr & tmp, "Activation", "", 2)
On Error Resume Next
Workbooks(Activation_W).Activate
End Sub

(*) Bah, oui, il faut saisir le nom de classeur

Usine à gaz · 17 Septembre 2023

Staple1600 à dit:
Re

Donc pour se compliquer la vie (*)
(alors que Affichage/Changer de fenêtre fait la chose facilement)

Code:

Sub Choisir_dans_Classeurs_ouverts() Dim tmp$, Activation_W$, WBK As Workbook For Each WBK In Application.Workbooks tmp = tmp & WBK.Name & vbCr Next Activation_W = _ Application.InputBox("Choisir un classeur en saisissant son nom:" _ & vbCr & tmp, "Activation", "", 2) On Error Resume Next Workbooks(Activation_W).Activate End Sub

(*) Bah, oui, il faut saisir le nom de classeur

Merci encore JM,
Je vais garder précieusement ton code.

Celui que je fais est particulière long et certainement "tarabiscoté" (amateur que je suis)
Tu vas certainement arracher les yeux du "pseudo machin truc" que je ne suis pas.

Mais peut-être voudras-tu me corriger ?

Staple1600 · 17 Septembre 2023

@Usine à gaz
Il manquerait pas ton message par hasard ?
(dans le message#11)
On ne voit que la citation de mon message#10

Usine à gaz · 17 Septembre 2023

Staple1600 à dit:
@Usine à gaz
Il manquerait pas ton message par hasard ?
(dans le message#11)
On ne voit que la citation de mon message#10

Mauvaise mapni : J'ai remis

dysorthographie · 17 Septembre 2023

Bonjour,
Tes classeurs sont ouverts par qui, que, quoi, comment ?
C'est toujours intéressant de savoir ce qu'on fait !

Code:

set MyClasseur=workbooks.open(Path)
MyClasseur.activate

Staple1600 · 17 Septembre 2023

Re, Bonjour @dysorthographie

@Usine à gaz
Pour ma part, que le code VBA soit cristallin et sente la rose ou soit "long et certainement "tarabiscoté", je m'en tiendrai dans le cas présent à:

utiliser ma souris et faire :

NB: Dans un cadre professionnel, j'essaie d'avoir au grand max 5 classeurs ouverts en même temps.

XL 2021 Activer classeurs ouverts

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

Discussions similaires