Discussion :

[patricktoulon]

bonjour a tous


j'ai l'habitude de me servir d'une variable object que je déclare en public dans un module pour déterminer l' userform
ensuite dans le activate je met "set maform=me"


parti de la je fait tout ce que je veux avec cette variable

exemple:

Code :

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

1
2
3
 
 
handle = FindWindowA(vbNullString, maform.Caption) 'détermine le handle de la form

mais j'ai trouvé ceci :

Code :

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

1
2
 
handle = FindWindowA("Thunder" & IIf(Application.Version Like "0*", "0", "D")& "Frame", UF.Caption)

qui fonctionne aussi mais je voudrais comprendre la formule


quelqu'un pourrais me traduire en français ce que ça veut dire


merci

au plaisir

[babaothe]

salut
dans la déclaration :

Code :

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

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

le paramètre lpClassName, si spécifié, spécifie un nom de classe (de fenêtre)
Je comprendrais volontiers ce que serait la classe ThunderFrame, mais ne suis pas trop sûr de ce que serait ThunderDFrame (bien que je devine qu'il représente la classe d'un UserDForm). Je ne vois par contre pas ce que pourrait être la classe Thunder0frame
Serait-ce en raison d'une représentation (en chaîne) différente selon la version de Office ? C'est là la seule explication plausible.

EDIT : et si tu nous exposais ta préoccupation ?
Serait-elle simplement d'éviter de risquer d'extraire le handle d'une frenêtre autre qu'un UserForm et qui serait malencontreusement à la fois ouverte et affublée du même titre que celui de ton UserForm ?

[patricktoulon]

bonjour babaothe

Merci pour ta réponse
Ce qui m'intéresse c'est simplement de comprendre et effectivement j'ai eu le même raisonnement que toi.

Et c'est le (0*)et "0" qui me pose problème dans la compréhension de la macro.
Sinon oui je ne vois que cette explication pour la frame cela dit je n'en suis pas sûr.
En tout cas çà fonctionne très bien.
Moi je veux juste comprendre c'est tout.

Merci à toi
N'hésite pas a donner l'info si tu trouve autre chose sur ce sujet.

Je vais chercher moi aussi de mon coté.

Au plaisir

[mercatog]

Chaque fenêtre Windows a une nom de classe associé.
ThunderDFrame est le nom de la classe des userform, pour les versions Excel 2000 et + et ThunderXFrame pour XL97

[patricktoulon]

bonjour mercatog
et merci la je comprend mieux

donc si je voudrais encore réduire le code je pourrais garder que le "d" (office 2007)

une dernière question a ce sujet j'utilise habituellement une variable object

pour identifier le usf

la quelle méthode et la plus valable selon toi??



merci a tout les deux je m'endormirais moins bete ce soir

au plaisir

[mercatog]

Dans tous les cas, tu dois définir la caption de ton usf en 2ème paramètre

si tu mets

Code :

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

handle = FindWindow(vbNullString, "blabla")

Tu récupère le handle de la fenêtre ayant comme caption (nom) blabla
par contre

Code :

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

handle = FindWindow("ThunderDFrame", "blabla")

Tu récupère le handle de l'userform ayant comme caption (nom) blabla

[patricktoulon]

bonjour mercatog


oui j'ai compris
en fait le userform est désigné par l'appel a cette macro

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
les_tois_boutons  Me  
 'le me va désigné le userform qui va être repris entre parenthèses dans la macro si j'ai bien compris

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
 
Option Explicit
Public Declare Function GWL Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function FWA Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function show Lib "User32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
Public handle As Long
 
 
 
Sub les_tois_boutons(UF As UserForm)    'uf=me 
       handle = FWA("Thunder" & IIf(Application.Version Like "0*", "0", "D") _
    & "Frame", UF.Caption)
    SWL handle, -16, GWL(handle, -16) or &H70000 'j'ajoute les deux boutons manquants et l'élasticité
 
show handle, 3'  (maximiser)
End Sub

donc résultat des courses même si je ne déclare pas de variables object finalement elle est déclarée comme ça

et que signifie le "IIf" je connais pas du tout cette expression


maintenant la quelle des deux solution est la plus stable ??


merci en tout cas pour tes explications et du temps que tu passe a revoir un sujet qui a certainement été traité plus d'une fois


au plaisir

[mercatog]

Bonjour

1. Le IIf(machin, sivrai, sifaux) est identique à la fonction Si d'excel

2. Si tu essayes ceci (pour la compréhension)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Public Declare Function GWL Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function FWA Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function show Lib "User32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
Public handle As Long
'-------------------------------------------
Sub les_tois_boutons()
handle = FWA("ThunderDFrame", vbNullString)
SWL handle, -16, GWL(handle, -16) Or &H70000     'j'ajoute les deux boutons manquants et l'élasticité
show handle, 3    '  (maximiser)
End Sub

et

Code :

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

1
2
3
Private Sub UserForm_Activate()
les_tois_boutons
End Sub

[patricktoulon]

re mercatog


je te remercie pour ces explications

et voila que maintenant on ne désigne même plus le userform
décidément

Code :

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

1
2
3
 
 
handle = FWA("ThunderDFrame", vbNullString)

donc finalement ca reviens a utiliser finalement un autre api de la user32

le getactivewindow

si on utilise le "ThunderDFrame"on peut l'utiliser qu'a partir de excel 2007

donc resultat des course si on utilise le "thunder"pour l'appliquer sur toute les versions d'excel il faut utiliser le "iif application.like,blabla"pour avoir la bonne classe de userform

je vais dormir moins bête ce soir
je te remercie

au plaisir

[mercatog]

si on utilise le "ThunderDFrame"on peut l'utiliser qu'a partir de excel 2007

à partir d'Excel 2000
pour excel 97 "ThunderXFrame"
moralité:

Code :

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

1
2
3
4
handle1 = FindWindow("ThunderDFrame", vbNullString) 'L'userform "actif"
handle2 = FindWindow(vbNullString, "blablabla") 'La fenêtre ayant pour "nom" blablabla
handle3 = FindWindow("ThunderDFrame", "blablabla") 'L'userform ayant le nom blablabl
handle4 = FindWindow(vbNullString, vbNullString) 'La fenêtre "active"

ça dépend de la situation, le vbnullstring à mettre avec précaution
pour la sécurité, utiliser le handle3

[patricktoulon]

re

alors la c'est on ne peut plus clair

je te remercie pour ces explications

et juste en passant ca ca marche aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Public Declare Function GAW Lib "user32" Alias "GetActiveWindow" () As Long
 
 
sub trucmachin
 
 
handle=gaw
' le reste de la macro
end sub

merci encore a toi


et je met un resolu


au plaisir