cherche explication sur declaration

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:

---

1 2 3

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

---

mais j'ai trouvé ceci :

Code:

---

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

salut
dans la déclaration :

Code:

---

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 ?

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:P

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

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

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

si tu mets

Code:

---

handle = FindWindow(vbNullString, "blabla")

---

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

Code:

---

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

---

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

bonjour mercatog


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

Code:

---

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:

---

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

Bonjour

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

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

Code:

---

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:

---

1 2 3

Private Sub UserForm_Activate() les_tois_boutons End Sub

---

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:

---

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

Citation:

---

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:

---

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

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:

---

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:ccool:


au plaisir