Détecter l'application active

Bonsoir,
nouveau sur le forum je n'avais sans doute pas envoyé le message au bon endroit !

Quelqu'un connaitrait-il le moyen de récupérer la liste des applications actives.
Je suppose qu'on doit trouver ça quelque part sur la machine !

(Mon but est de détecter si l'utilisateur passe d'Excel à une autre appli)

Merci pour le tuyau!

Bonjour,

A ma connaissance cela n'est pas possible, il s'agit là d'un événement et les procédures événementielles possibles concernent le classeur, pas l'application.

On peut donc détecter la désactivation du classeur mais cela ne veut pas dire que l'utilisateur est sur un autre programme qu'Excel.

Bonsoir ucfoutu, et merci pour le commentaire.

Je n'ai pas l'impression de faire quelquechose d'illégal ou pas valable !

Mon souhait est de refermer la fenêtre Excel si l'utilisateur passe à une autre application pour éviter une copie d'écran avec une appli de capture genre PaintShop ou autre. Je voudrais afficher une fenêtre mais la protéger au mieux contre la copie. Je sais bien que ce ne sera jamais parfait et que je n'empècherai pas une photo ! J'ai bien sûr déjà bloqué les copier-coller, enregistrer sous, et Impr écran habituels.

Ce qui m'intéresse en premier c'est donc de savoir si on quitte Excel, et je ne sais pas le faire simplement.
La liste des applis ne m'intéresse que parce que je sais tester si une fenêtre est active mais seulement si je connais le nom ! Si elle est active ou a le focus, je pourrai sans doute en déduire qu'Excel ne l'est plus.

Voilà, c'est tout.
Merci et bonsoir.

Comme tu le dis, tu n'empêcheras rien, à commencer par la copie dans le presse-papoers par utilisation toute bête de la touche Imp/écran !!!

Mais bon ....
Tu y tiens ?
Voilà :

Un UserForm avec un boution de Commande et une listbox ListBox1

Dans un module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Public Function onvoit(ByVal hwnd As Long, ByVal lParam As Long) As Boolean Dim quoi As String, quel As Long quel = GetWindowTextLength(hwnd) quoi = Space(quel) GetWindowText hwnd, quoi, quel + 1 If quoi <> "" Then UserForm1.ListBox1.AddItem Str$(hwnd) + " " & quoi End If onvoit = True End Function

---

et dans le click d'un bouton de ton UserForm :

Code:

---

EnumWindows AddressOf onvoit, 0

---

Mais une autre fois : protection bien naïve !!!!

Salut UC ;)

Si je peux me permettre, ce que tu proposes (malgré que ce soit intéressant) va lui sortir la liste de toutes les appli's qui tournent, y compris celles qui tournent en arrière plan mais cela ne répond pas à...

Citation:

---

Mon but est de détecter si l'utilisateur passe d'Excel à une autre appli

---

Perso je ne vois pas la méthode qui permettrait de détecter cela mais je ne fume pas suffisamment les API pour pouvoir en tirer toutes leurs subtilités
.

Merci encore
Ne vous prenez pas la tête tous les deux!
Je pense que vous avez compris que ce n'est pas hyper important mais ça fait un moment que j'essaye ...

Pour info je vide le presse papier toutes les 0,5 secondes. Il faudrait être le roi du clic pour arriver à copier. La touche impr écran est facile à rendre inopérante.

La procédure tourne effectivement mais effectivement aussi elle trouve tout !
(trop !!!)

Bonsoir

Re-salut à tous les deux,

Je propose alors ceci :
- A l'ouverture : relever la fenêtre active !
- lorsque la fenêtre active n'est pas Celle du début ===>> dénoncer ou agir.
Cela irait ?

Merci de la suggestion.
C'est de toutes façons le but à atteindre !
Je vais essayer, mais je ne suis pas sûr que ce soit facile. Excel considèrera sans doute la fenêtre comme active.

bonjour

Citation:

---

Pour info je vide le presse papier toutes les 0,5 secondes. Il faudrait être le roi du clic pour arriver à copier. La touche impr écran est facile à rendre inopérante.

---

Et comment vas tu gérer un utilisateur qui désactive les macros lors de l'ouverture du classeur ? Il peut ensuite faire ce qu'il veut dans le classeur ...

bon week end
michel

Bonjour SilkyRoad,
Ca chauffe !

Je comptais cacher la feuille dans le classeur et même la cacher dans le menu "format feuille afficher".
Puis l'ouvrir avec une macro.
Si les macros sont désactivées la feuille reste invisible non ?

Bon weekend aussi.
Titi

Bonsoir à tous
et merci pour les infos que j'ai pu avoir par vous.
J'ai essayé un tas de fonctions API que je n'ai pas réussi à faire marcher, mais je crois que je suis arrivé à ce que je voulais.
Au départ je cherchais à construire les applis actives, et finalement c'est quasiment ce que je fais sauf que je minimise la fenêtre sans noter son nom!

Code:

---

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

Dim TitreFenetreWindows As String * 255   TitreFenetreExcel = Application.Caption hWnd = GetWindow(GetDesktopWindow(), 5) i = 0   Do While (Not IsNull(hWnd)) And (hWnd <> 0) 'Handle de chaque fenêtre TitreFenetreWindows = String(255, 0) 'réserve place pour le titre de la fenêtre ret = GetWindowText(hWnd, TitreFenetreWindows, 255) 'récupère le titre de la fenêtre et le nombre de caractères de ce titre If TitreFenetreWindows <> String(255, 0) Then 'Si le titre n'est pas vide If IsWindowVisible(hWnd) = 1 Then 'Pour ne tenir compte que des fenêtres visibles (regardez ce que ça donne en retirant cette condition) TitreFenetreTrouve = Left(TitreFenetreWindows, ret) 'sans les caractères supplémentaires finaux If TitreFenetreTrouve = TitreFenetreExcel Then XlhWnd = hWnd Else If TitreFenetreTrouve = "Program Manager" Then Else a = CloseWindow(hWnd) ' minimise l'appli trouvée If a = 0 Then FermerCeClasseur ' en cas d'erreur End If End If End If End If hWnd = GetWindow(hWnd, 2) 'cherche la fenêtre suivante Loop

---

Je vais joindre le fichier au cas ou ça intéresse quelqu'un cedont je doute !!!