Limiter le nombre de nouvelle fenetre

[satwaf]

Bonjour à tous,
voila mon petit souscis, j'aimerai dans un classeur comparer deux fenêtres cote a cote, jusque la pas de probleme, j'ai affecté une touche de raccourci pour lancer la macro, le petit soucis et que j'aimerai limiter le nombre de fenetre à 2, parce que si je fait a nouveau la combinaison de touche ctrl+q j'ouvre une nouvelle fenetre et ainsi de suite

voici le code que j'ai pour le moment

Sub comparaison_table()
'
Application.ScreenUpdating = False
Sheets("Récap table 1").Select
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlVertical
Sheets("Récap table 1").Select
ActiveWindow.DisplayGridlines = False
Sheets("Récap table 1").Rows("5:5").Select
ActiveWindow.FreezePanes = True
Sheets("Récap table 1").Range("A5").Select
Windows.CompareSideBySideWith "Gestion poutrelle hybride 04-05-12.xls:1"
Windows("Gestion poutrelle hybride 04-05-12.xls:1").Activate
Sheets("Récap table 2").Select
ActiveWindow.DisplayGridlines = False
Sheets("Récap table 2").Rows("5:5").Select
ActiveWindow.FreezePanes = True
End Sub

 

[Staple1600]

Re : Limiter le nombre de nouvelle fenetre

Bonjour à tous


Une idée en passant:
Insères ceci au début de ta macro
If Application.Windows.Count > 2 Then Exit Sub

 

[satwaf]

Re : Limiter le nombre de nouvelle fenetre

Bonjour Staple, merci pour ta réponse, j'essaye ca des demain au bureau.
encore merci