Test d'existance

Nicolas · 15 Janvier 2002

<HTML>Bonjour,

J'aimerai tester une page est ouverte (avtive ou pas). J'arrive à tester si elle est active mais pas si elle est réduite.

Puis j'aimerai agir sur cette page même si elle est innactive

Merci pour vos réponses</HTML>

Stéphane · 17 Janvier 2002

<HTML>Sub f()
For Each wk In Workbooks
If wk.Name = "Classeur1" Then
statutwk = wk.Windows(1).WindowState
MsgBox Switch(statutwk = xlMaximized, "Maximisé", statutwk = xlMinimized, "Minimisé", statutwk = xlNormal, "Normal")
End If
Next wk
End Sub</HTML>

Test d'existance

Nicolas

Guest

Stéphane

Guest

Discussions similaires