Test d'existance

N

Nicolas

Guest
<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>
 
S

Stéphane

Guest
<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>
 

Discussions similaires

Statistiques des forums

Discussions
312 815
Messages
2 092 349
Membres
105 375
dernier inscrit
cl56