XL 2021 VBA - Recevoir un signal d'une autre Application

[Dudu2]

Bonjour,

Existe-t-il un moyen pour une application source d'envoyer "quelque chose" (un signal) à une autre application cible qui déclenche chez elle un évènement ?

Je vois dans l'API la fonction SendMessage ou ce genre de chose mais rien pour en exploiter l'envoi. Ça m'échappe.

J'ai essayé un SendKeys de l'application source vers l'application cible (après l'avoir activée avec un SetForegroundWindow) qui a défini un Application.Onkey sur la clé envoyée. Ça fonctionne sauf évidemment quand l'application cible est en mode édition sur cellule auquel cas la clé arrive en cellule et n'est pas interceptée par le OnKey.
Mais envoyer une clé ça reste assez artisanale. J'aimerais un truc plus évolué.

 

[Dudu2]

@patricktoulon,
Les évènements sont propres à l'instance.
On ne peut pas capter un WorkbookOpen si le classeur appartient à une autre instance.

Comme je l'ai dit plus haut, si on détecte la 2ème instance (il est simple de la détecter sur un Auto_\Open) on peut provoquer la fusion dans la 2ème instance, mais c'est plus complexe (voir Post #3). C'était la discussion sur ce sujet.
Il faut détecter la 2ème instance dans la 2ème instance car on ne peut pas la détecter dans la 1ère instance (sauf boucle qu'on ne veut pas) et faire la fusion dans la 1ère instance. D'où la nécessité de communiquer et surtout de déclencher un évènement dans la 1ère instance.

 

[Dranreb]

Si on peut, finalement mettre en vigilance un classeur géré par une autre instance, tester un module de classe nommé Signal :

Option Explicit
Private HNotée As Date, Fermé As Boolean
Event Synchro(ByVal H As Date)
Private Sub Class_Initialize()
   HNotée = Now: Fermé = True
   End Sub
Public Sub Actualiser()
   HNotée = Now
   SaveSetting AppName:="Excel", Section:="Synchro", Key:="Heure", Setting:=Format(HNotée, "dd/mm/yyyy hh:mm:ss")
   End Sub
Public Sub AttendreSynchro()
   Dim H As Date
   Fermé = False
   Do
      H = CDate(GetSetting(AppName:="Excel", Section:="Synchro", Key:="Heure", Default:="00/01/1900 00:00:00"))
      If Fermé Then Exit Sub
      If H > HNotée Then Exit Do
      DoEvents
      Loop
   Fermé = True
   HNotée = H
   RaiseEvent Synchro(H)
   End Sub
Public Sub Fermer()
   Fermé = True
   End Sub

Le déclarer Public SignalGéné As Signal dans un module standard pour pouvoir y exécuter sa méthode AttendreSyncro, lancée si possible d'une autre instance, le reprendre en Private WithEvents Sgl As Signal dans le module objet voulant pouvoir prendre en charge son évènement Synchro. L'y initialiser d'abord par un Set Sgl = SignalGéné.

 

[patricktoulon]

re

On ne peut pas capter un WorkbookOpen si le classeur appartient à une autre instance.

qui a parlé de capter le workbook.open(pas moi)

 

[Dranreb]

Remarque: si l'objet Signal est défini dans un .xlam dont le projet est en référence dans tous les classeurs impliqués, ne pas oublier de prévoir pour cette classe, afin qu'elle soit bien connue partout l'instancing : 2 — PublicNotCreatable et de prévoir une fonction pour l'initialiser :

Public Function Signal()
   Set Signal = New Signal
   End Function

 

[Dudu2]

@Dranreb,
Ok mais tu as toujours une boucle de monitoring du setting.

Sinon, je vais tenter d'exploiter le seul évènement standard sur une classe Application qui soit d'une certaine manière identifiable dans son résultat s'il est particulier...

 

[Dranreb]

Quel évènement ?
Si c'est un évènement de Application, il n'y a que Application qui peut le décréter !

 

[Dudu2]

J'essaie d'utiliser le Application.WindowResize dans l'instance #1 sur des valeurs particulières (à déterminer) pour déclencher la fusion.
Pour l'instant je n'arrive pas à "Resizer" la fenêtre à partir de l'instance #2 bien que je connaisse son Handle.
Avec SetWindowExtEx ça ne déclenche rien.
Je vais essayer d'autres APIs.

Si ça marchait, dans le pire des cas d'un resize manuel arrivant par hasard aux mêmes valeurs particulières, ça n'aurait pas d'effet puisque la fusion n'est pas exécuté avec 1 seule instance.

 

[Dudu2]

Si quelqu'un peut me dire pourquoi l'évènement WindowResize ne se déclenche pas dans ce classeur minimal alors que j'arrive à l'avoir dans contexte infiniment plus complexe. Je suis atterré ! Suffit de resizer la fenêtre. En principe !

 

[dysorthographie]

J'ai bien compris que ce que je disais ne procurait pas le moindre intérêt mais bon !

Méthode	Fonctionne entre deux sessions Excel ?	Commentaire
SendKeys	✅ Oui	Bricolage peu fiable, comme tu l’as déjà testé.
Chat SQLite (ou fichier signal)	✅ Oui	Excellente solution : les deux Excel lisent/écrivent dans une base partagée.
Run via COM (GetObject)	❌ Non	Ne marche que dans la même instance.
Automation Add-In ou RTD	✅ Oui	Très pro, mais complexe à mettre en place.
WMI ou Named Pipes	✅ Oui	Réservé aux développeurs expérimentés.
Windows Messages (SendMessage API)	⚠️ Compliqué	Pas faisable directement en VBA. Nécessite une fenêtre écoutant les messages.

---

✅ Recommandation simple​

Pour simuler un "signal" inter-session proprement, sans bricolage :

Utilise :​

• un fichier texte ou SQLite avec un Timer dans le classeur cible (Timer Excel ou API Windows).
• L’application source écrit "ACTION = faire ceci" dans la base.
• L’application cible lit toutes les secondes et réagit si une nouvelle commande est trouvée.

---

 

[Dranreb]

pourquoi l'évènement WindowResize ne se déclenche pas dans ce classeur minimal

Votre propriété App (pourquoi une propriété, d'ailleurs ? En Private ça suffisait !) n'est pas initialisée
Il manque donc Set App = Application dans la Sub Class_Initialize

 

[Dudu2]

J'ai bien compris que ce que je disais ne procurait pas le moindre intérêt mais bon !

Je comprends pas pourquoi tu dis ça @dysorthographie, bien sûr que ça compte !
Je me souviens bien des pipes en Unix / C et j'aurais bien aimé le faire en VBA.

@Dranreb, merci, je viens aussi de m'en apercevoir. Je crois que je fatigue.

Mais bon, je finirai par y arriver (cross fingers) avec ce contournement bidouille mais sûr de WindowResize.
Car IL FAUT que ce soit évènementiel et le système "fichier signal" ni aucune des autres méthodes, à part le SendKeys inutilisable ne le permet. Faut toujours une boucle qui écoute.

 

[Dudu2]

Un moyen simple de trouver un objet Window à partir de son Handle ?

 

[Dranreb]

À part comparer sa valeur à celle de la propriété Hwnd de chaque membre de la collection Windows …

 

[patricktoulon]

re
dans le temps ou le sujet était très souvent évoqué avec 2007 on se faisait un petits vbs dynamique d'ecoute qui tournait en tache de fond sans perturber excel

 

[Dudu2]

À part comparer sa valeur à celle de la propriété Hwnd de chaque membre de la collection Windows

Oui c'est ce que je pensais...

Bon là je rame complet, ça fait pas ce que je veux !