Discussion :

[Ric500]

Bonjour à tous!

La question est dans le titre: j'ai un formulaire d'alarmes diverses dans mon appli. Pour favoriser l'ergonomie, je permets sa mise en icone. Pour qu'il garde sa fonction d'alarme, sur timer, je lance une procédure qui:

1. Si le formulaire est minimisé: (comment faire ce test ?)
2. le rafraîchir (me.requery)
3. Restaurer sa taille (docmd.restore)

Voilà çà semble trivial, mais je n'ai pas trouvé de réponse dans la FAQ ou sur le forum. (à moins que je m'y soie mal pris )

Merci de vos réponses

[james68]

Salut...
comme ca :

Code :

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

1
2
3
4
5
 If CurrentProject.AllForms("NomDeTonFormulaire").IsLoaded Then
 MsgBox "OPEN"
 Else
 MsgBox " CLOSED"
 End If

++

[Ric500]

@james68

Merci James de ta réponse, mais mon but n'est pas de savoir si mon formulaire est ouvert, mais de déterminer s'il est en icone ou pas.

Bonne journée!

[james68]

OUPS... je n'avais pas saisi la subtilité.
Cependant je ne pense pas qu'il y a une possibilité de savoir si il est en icone ou non...
je jette un coup d’œil cet am , si je trouve je poste...
++

[Ric500]

[Arkham46]

Bonjour,

Pas sûr qu'il y ait d'autre moyen que l'API User32 :

A déclarer dans un module (ou dans le formulaire si lui seul utilise ça, et dans ce cas on peut passer les fonctions de Public en Private) :

Code :

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

1
2
3
4
5
#If VBA7 Then
Public Declare PtrSafe Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As LongPtr) As Long
#Else
Public Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
#End If

Code pour le test :

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

If IsIconic(Me.Hwnd) Then

[Ric500]

Merci Arkham46,

Je teste çà et reviens vers vous...

[Ric500]

J'obtiens en faisant ma déclaration dans le formulaire ou dans un module le même message d'erreur:

[Arkham46]

Si c'est un module, cela doit être un module standard et non pas un module de classe.

Si c'est dans le formulaire, il faut (j'avais dit "on peut" mais c'est plutôt "il faut") passer les déclarations en Private au lieu de Public.

[Ric500]

@Arkham46,

OK, autant pour moi !!

En faisant la déclaration au sein d'un module, çà fonctionne avec:

Code :

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

Declare PtrSafe Function IsIconic Lib "user32" (ByVal hwnd As LongPtr) As Long

Sur une VM en 32 bits et Access13 32 bits

Par contre je m'interroge: qu'est-ce que VBA7? et le test de ton exemple?

[Arkham46]

Le code

Code :

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

#If VBA7 Then

teste si on est en version VBA7.

C'est la version apparu avec Office 2010 qui est compatible 64bits.
Le code donné déclare la fonction IsIconic différemment en fonction de la version.
Ainsi le code fonctionne en 32bits et en 64bits, quelque soit la version d'Office.

VBA7 ne teste pas si on est en 64bits ou pas, il teste une version de VBA (donc indirectement une version d'Office).
Si tu conserves uniquement la déclaration avec PtrSafe, alors l'application ne compilera pas sur des versions antérieures à 2010 qui ne connaissent ni PtrSafe, ni LongPtr.

Code fonctionne en 32bits uniquement, quelque soit le numéro de version d'Office :

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

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

Code fonctionne en 32bits et 64bits, à partir de Office 2010 :

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

Public Declare PtrSafe Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As LongPtr) As Long

Donc :

Code commun toutes versions :

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

1
2
3
4
5
#If VBA7 Then
Public Declare PtrSafe Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As LongPtr) As Long
#Else
Public Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
#End If

Plus d'infos sur le sujet ici :
https://arkham46.developpez.com/arti...ice/vba64bits/

[james68]

Que dire de plus .... .... RESPECT...

[Ric500]

Merci Arkham46 !!!

Tu nous éclaires de ta docte lumière !

Plaisanterie mise à part je suis très content d'en apprendre tous les jours malgré mes années de pratique.

Tout çà vérifie ma signature: Essayer. Rater...

Bonne continuation sur ce forum au top !