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