Nouvelle fenetre avec feuille differente

Bonjour a tous, je ne comprend pas pourquoi je peux avec l'enregistreur de macro ouvrir une nouvelle fenetre avec une feuille differente de la premiere alors que si je lance cette macro par un bouton, j'ai une erreur.

J'ai constate que ca fonctionne seulement si j'ouvre une 2ieme fenetre avec la meme feuille que la premiere, pourquoi?

Voici un fichier tout simple qui reproduit le probleme.. Vous constaterez que seulement le premier sub fonctionne.

Private Sub CommandButton1_Click()
    ActiveWindow.NewWindow
    Sheets("Feuil1").Select
    Range("A4").Select

     With ActiveWindow
        .Width = 446.25
        .Height = 522.75
        .Top = 2.5
        .Left = 516.25
    End With
End Sub

Private Sub CommandButton2_Click()
    ActiveWindow.NewWindow
    Sheets("Feuil2").Select
    Range("A4").Select

    With ActiveWindow
        .Width = 446.25
        .Height = 522.7
        .Top = 2.5
        .Left = 516.25
    End With
End Sub

Bonsoir,

J'ai suivi le sujet précédent, sans réponse adaptée.

Pour la gestion des fenêtres , ce n'est vraiment pas clair

http://social.msdn.microsoft.com/Forums/en-US/3488b003-1816-4e09-8c7e-d4082a3fafdb/arranging-of-sheets-in-workbook-excel-vba?forum=isvvba

A te relire

Cdlt

Salut Jean-Eric, merci de te pencher sur ce probleme. Je ne peux pas executer le code du fichier que tu as joint,, sans doute parce que j'ai une version excel 2003 et qu'il est en lecture seule. Par contre, j'ai copier ce code dans le fichier que je fournis pour le Forum en changeant la ligne de code plus bas pour la fenetre 2 et en selectionnant une cellule de la feuille 2. J'obtient une message d'erreur. Il semble qu'il ne soit pas possible d'acceder a une cellule d'une feuille autre que la feuille 1 avec du VBA!!!

Voici mon fichier. Tu n'as qu'a cliquer le 3 ieme bouton.

wns(2).Activate    ' activate preferred window
End Sub

Bonjour à toutes et tous,

Afin d'aider Capucin, qui travaille avec Excel 2003, pouvez-vous vérifier la procédure dans le fichier joint?

Avec pour la partie surlignée les valeurs de 1 et 2 pour wns().

La question est : Peux-t'on sélectionner les cellules A1 (ou autres) des feuilles en fin de procédure?

Testé chez moi en xls et xlsm et ça fonctionne

Merci par avance

Cdlt.

Option Explicit
Option Private Module
Public Sub TwoWindows()
Dim cnt As Long, i As Long
Dim wn As Window
Dim wns(1 To 2) As Window
Dim col As Collection
    Application.ScreenUpdating = False
    For Each wn In ActiveWorkbook.Windows
        cnt = cnt + 1
        If cnt > 2 Then
            wn.Close
        Else
            Set wns(cnt) = wn
        End If
    Next
    If cnt = 1 Then
        Set wns(2) = ActiveWindow.NewWindow
    End If
    Set col = New Collection
    For Each wn In Application.Windows
        If wn.Visible Then
            If wn.Parent Is ActiveWorkbook Then
                wn.WindowState = xlNormal
            Else
                col.Add wn
                wn.Visible = False
            End If
        End If
    Next
    wns(2).Activate
    Worksheets("Feuil2").Activate
    wns(1).Activate
    Worksheets("Feuil1").Activate
    Application.Windows.Arrange ArrangeStyle:=xlVertical
    For i = col.Count To 1 Step -1
        col(i).Visible = True
    Next
    For i = 2 To 1 Step -1
        wns(i).Activate
    Next
    wns(1).Activate ' activate preferred window
    Range("A1").Select
End Sub

J'ai finalement trouve le probleme: puisque la 2ieme fenetre contenait une feuille differente de la premiere, le code devait etre place dans un module. Aurais-je pu mettre les sub public ou encore a un autre endroit comme dans "thisWorkbook"?

Je joint un petit fichier qui fonctionne. Si quelqu'un peut regarder en passant dans le module 2, j'ai 2 sub qui font la meme chose semble t-il mais il y en a un qui est beaucoup plus gros, quel est la difference?

Bonjour

Pour info la méthode 1 plante

Gardes la méthode 2

Salut Banzai, il y avait 2 fenetres a l'ouverture, maintenant les 2 methodes fonctionnes.

Capucin