VBA - Savoir si une fenêtre est visible

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA - Savoir si une fenêtre est visible

didieraucun

Bonsoir et bonne année
J'ai trouvé ce code sur internet pour Savoir si une fenêtre est visible

Citation :

Public Declare Function IsWindowVisible& Lib "user32" (ByVal hwnd As Long)

Public Function FenetreEstVisible(hWnd As Long) As Boolean
Dim ret As Long
ret = IsWindowVisible(hWnd)
FenetreEstVisible = (ret=1)
End Function

Exemple : If FenetreEstVisible(Me.hWnd) Then MsgBox "La fenêtre est visible" Else MsgBox "La fenêtre est invisible"

J'ai donc mis cela dans un module excel et rajouté ensuite :
Public Sub Essai ()
Dim FenetreEstVisible
FenetreEstVisible = "Sans titre - Bloc-notes"
If FenetreEstVisible(Me.hWnd) Then MsgBox "La fenêtre est visible" Else MsgBox "La fenêtre est invisible"
end sub

mais j'ai une erreur :??:
Pourriez vous m'aider ?

Message édité par didieraucun le 04-01-2008 à 19:47:21

Publicité

wape

Bonsoir,

Avant d'appeler l'API IsWindowVisible, il faut d'abord connaître le handle (numéro d'identification)
de la fenêtre recherchée. Cela s'effectue à l'aide de l'API FindWindow.

Code :

Public Declare Function IsWindowVisible& Lib "User32" (ByVal hWnd As Long)
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function FenetreEstVisible(hWnd As Long) As Boolean
Dim ret As Long
ret = IsWindowVisible(hWnd)
FenetreEstVisible = (ret = 1)
End Function
Public Sub Essai()
Dim lHandle As Long
lHandle = FindWindow(vbNullString, "Sans titre - Bloc-notes" )
If FenetreEstVisible(lHandle) Then MsgBox "La fenêtre est visible" Else MsgBox "La fenêtre est invisible"
End Sub

wape

didieraucun

Grand merci à toi Wape

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA - Savoir si une fenêtre est visible

Sujets relatifs
[Formulaire] Fenetre de confirmation	Fenetre, comparaison, resultat... besoin d'aide (bis)
Fenetre, comparaison, resultat... besoin d'aide	Petit programme simple pour débutant VBA
Commande VBA Archiver dans Outlook 2003	[EXCEL/VBA] Intersection avec une courbe lissée [RESOLU]
Problème code VBA	Appliquer un motif à une fenetre Java
Fenetre dialog en perl	utilisation d'un bean dans une fenêtre java
Plus de sujets relatifs à : VBA - Savoir si une fenêtre est visible

Page générée en 0.032 secondes