Discussion :

[itwoo]

Bonjour,

Les API GetParent, FindWindow...marchent toutes mais pas GetAncestor elle n'est pas reconnue.

Voici le message d'erreur:
Erreur d'exécution: '453'
Point d'entrée Getancestor d'une DLL introuvable dans user32

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Declare Function Getancestor Lib "user32" (ByVal hwnd As Long, ByVal gaFlags As Long) As Long
 
avec dans le code VBA
ancest = 1&
hWnDAncestor = Getancestor(hChild, ancest)

Quelle Dll faut il activer svp?

[mjpmjp]

bonjour,
ton code,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
hWnDAncestor = Getancestor(hChild, ancest)

dans cette aide : lien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
child.GetAncestor ( n )

je constate qu'il n'y a que 1 "info" et avec toi 2

@+JP

[mjpmjp]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Declare Function GetAncestor Lib "user32.dll" ( _
  ByVal hwnd As Long, _
  ByVal gaFlags As Long) As Long

dans cette page en allemand,

j'ai noté
Private Const GA_PARENT = 1
et toi
ancest = 1&

@+JP

[Patrice740]

Bonjour,

Peut-être sensible à la casse : GetAncestor au lieu de Getancestor

Voir ce lien pour API User32 : https://msdn.microsoft.com/fr-fr/lib...(v=vs.85).aspx

[unparia]

Bonjour

Dans le bout de code montré (et( probablement non compris) à savoir :
Declare Function Getancestor Lib "user32" (ByVal hwnd As Long, ByVal gaFlags As Long) As Long

avec dans le code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ancest = 1&
hWnDAncestor = Getancestor(hChild, ancest)

on voit bien que l'on a "forcé" à 1 (et pourquoi ? C'est le handle de quelle fenêtre, ce 1 ?) le paramètre gaFlags
On ne voit par contre nulle part comment a été initialisée la variable hChild --->> par défaut (si non initialisée), elle vaut 0 et est donc le hwnd du bureau ! Il se trouve que le bureau n'a pas de "parent" (et encore moins d'ancètre, hein ...) ==>> et donc hWnDAncestor retournera bien évidemment un magnifique (et très logique) 0.
Et tu t'en étonnes ? Vraiment ?

[itwoo]

Merci pour votre aide lu vos commentaires et fait les tests comme vous indiquez...voici pour faire plus simple en code que vous pouvez tester chez vous, ici Getancestor ne se lance pas car non reconnue...toujours le même message...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Declare Function Getancestor Lib "user32" (ByVal hwnd As Long, ByVal gaFlags As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
  (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Const GA_PARENT = 1 'pour utiliser GetAncestor en demandant la recherche du pére
 
Function Demo()
Dim hChild As Long
Dim hParent As Long
Dim hWnDParent As Long
Dim hWnDAncestor As Long
Dim ancest As Long 'pour définir le paramétre de GetAncestor
 
 intrep = MsgBox("Voulez étudier Desktop=>oui ou si=>non 0 qui marche aussi?", vbYesNo)
 If intrep = vbYes Then
 hWnDDesktop = GetDesktopWindow
 hParent = hWnDDesktop
 Else
 hWnDDesktop = 0
 hParent = hWnDDesktop
 End If
 
hChild = FindWindowEx(hParent, 0, vbNullString, vbNullString) 
MsgBox hChild
hWnDAncestor = Getancestor(hChild, GA_PARENT) 'ne marche pas point d'entrée de la DLL introuvable dans user32
MsgBox hWnDAncestor
 
End Function

[zenpbb]

Bonjour
As-tu essayé ce que Patrice a proposé?

[itwoo]

Bonjour,

Oui ca y est ca marche...il y a avait un conflit ailleurs qui bloqué les majuscules / minuscules c'est pas croyable ca
Maintenant GetAncestor marche bien!!!
Merci à vous