Afficher QUE deux pages d'un classeur

Bonjour à tous,

je voudrais afficher que deux pages demon classeur, le problème c'est que si j'ai un autre classeur ouvert,

cela affiche la feuille active de celle-ci, peut-on y remédier ?

Voici le code pour afficher deux pages d'un classeur

Sub DoublePage_Cliquer()
Dim nom1 As Variant
nom1 = ActiveWorkbook.Name 'Truc

    ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=xlVertical
    Sheets("Truc").Select
    Windows(nom1 & ":1").Activate
    Sheets("Machin").Select
End Sub

bonjour,

Bonjour,

Pas sûr d'avoir compris...

Teste nom1 et ne le fait que si c'est le classeur concerné (?), voir même activer le classeur voulu avant.

eric

bonjour,

si j'ai bien compris , il voudrai afficher 2 feuille d'un classeur précis (dont j'aimerai avoir un nom ainsi que les nom des feuille )

ensuite faut-il fermer les autre classeur ouverte ?

Bonjour,

Tout d'abord, Merci de l'attention que vous portez à mon problème.

Je vous joins un classeur Test.

Je reformule mon problème (c'est vrai qu'en me relisant ce n'est pas très clair).

Ce que j'ai : Une macro qui permet d'afficher cote à cote sur ma fenêtre deux Feuilles donc ici: Truc et Machin.

Le Problème: si un autre classeur est ouvert en même temps, au lieu d'afficher deux feuilles sur ma fenêtre,

j'en ai 3 : Truc et Machin + une autre feuille de l'autre classeur ouvert.

Ce que je veux: la même macro mais cette fois-ci, une qui gère mon problème, c'est à dire que même si il y a un autre classeur d'ouvert, seule les deux pages Truc et Machin son afficher. Si possible, je ne veux pas que les autres classeurs ouvert soit fermé.

Bonjour,

il faut réduire les autres fenêtres avant :

Sub DoublePage_Cliquer()
    Dim w As Window
    For Each w In Windows
        If w.Parent.Name <> ThisWorkbook.Name Then w.WindowState = xlMinimized
    Next w
    ActiveWindow.WindowState = xlMaximized
    ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=xlVertical
    ActiveWindow.ActivateNext
    Sheets("Machin").Select
End Sub

eric

Merci beaucoup pour ton aide eriiic, c'est exactement ce que je voulais !

Bonne journée