Discussion :

[noemieze]

Bonjour à tous,

ça fait un moment que je cherche une solution à ce problème alors je me permets de vous solliciter.

J'aimerais faire communiquer 2 applications vba sur un meme poste.

Depuis une application A, en cliquant sur un bouton, je lance une application B et je la mets au premier plan avec AppActivate ou SetForgroundWindow.

J'aimerais en cliquant sur un bouton de l'application A mettre à jour un formulaire de l'application B. La mise à jour se fait par une fonction de l'appli B.

Je cherche des pistes...

Y a t'il moyen d'envoyer un message à l'application B pour lui dire d'executer une de ses fonctions?

ou y a t'il moyen d'executer une fonction stockée à une adresse mémoire depuis n'importe quelle application vba?

ou y a t il un autre moyen de donner la main à une application et de lui dire d'exectuter une de ses fonctions??

En vous remerciant par avance

Noemieze

[helas]

il est toujours possible de passer des informations dans un fichier ecrit par l'application A et lu par l'application B ou plus simplement par la ligne de Commande (voir dans l'aide la fonction Command) si l'information est courte

[Pierre Fauconnier]

Bonsoir

Pour ma part, je n'ai pas compris ceci

J'aimerais en cliquant sur un bouton de l'application A mettre à jour un formulaire de l'application B

Que veux-tu dire par "mettre à jour un formulaire"?

[noemieze]

bonsoir à tous,

Tout d'abord merci de m'accorder votre temps.
Pierre Fauconnier, je vais essayer de mieux m'expliquer.

Derrière le clique d'un bouton d'une application A il y a ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub BtnCh_Click()
    On Error GoTo LaunchChir1
 'essaye de mettre au premier plan l'application B si elle est déjà 
 'ouverte pour ne pas lancer une deuxième instance
 
AppActivate "TitreAppliB"
'ici j'aimerai déclencher un évènement de l'application B pour mettre à jour le formulaire de l'appli B ouvert au premier plan
 
        Exit Sub
 
LaunchChir1:
    'Si l'application n'est pas déjà lancer, il faut la lancer (aucun souci)
    ShellExecute(Me.hwnd, "open", CheminAppliB, "", "", 3)
 
 
End Sub

Je vérifie d'abord si l'application B est déjà ouverte. Si oui, je la mets en premier plan et je ne l'ouvre pas une deuxième fois. Si l'application n'est pas ouverte je l'ouvre avec shellExecute.

Ma question :
Après l'instruction AppActivate, l'application B est lancée et au premier plan. Mais pas avec les données du bon client. J'aimerais 'mettre à jour' l'affichage du formulaire ouvert de l'application B. C'est à dire, faire appel à une fonction FctChargerClient() de l'application B qui s'occupe de mettre à jour tous les élements du formulaire.
Comment déclencher un evenement de l'application B lorsque je la met au premier plan?

'Helas' tu me proposes d'utiliser la ligne de commande, je l'utilise déjà lors de la première ouverture mais ce qui me pose problème c'est quand je mets en premier plan la page avec appActivate ou je n'ai plus de ligne de commande.

'Helas' pour la deuxième solution que tu me proposes : d'écrire dans un fichier et de le lire par l'autre application. Mais comment déclencher l'evènement dans l'application B d'aller lire dans un fichier ?
Ou meme si je mets la fonction chargée de la mise à jour du formulaire FctChargerClient() derrière un bouton de l'appli B, comment déclencher l'evenement clique de ce bouton depuis l'application A initiale?

J'espère avoir été plus claire.

Merci encore pour votre aide qui m'est très précieuse.

Noemieze

[ilank]

Bonjour,

Le pb est ne sachant pas quelle application tu appelles.
Bref, l'idée serait de gérer l'appli via un objet ent remplacement du ShellExecute.

Exemple: pour deux applis Access, L'appli B dispose d'un formulaire FrmClient.

Code :

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

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
26
27
Dim AppliB as Access.Application
 
Private Sub Btn_Click()
 LoadUnLoad True 
 AppliB.Visible=True
 Applib.RunCommand AcCmdAppMaximize
 AppliB.DoCmd.OpenForm "FrmClient",WindowMode:=AcDialog
 AppliB.RunCommand AcCmdAppMinimize
 AppliB.Visible=False
End if
 
Private Sub LoadUnLoad(fLoadMask as boolean)
 If fLoadMask = (AppliB Is Nothing) Then
  if floadMask then
   Set AppliB=New Access.Application
   AppliB.OpenCurrentDatabase Chemin
  else
   AppliB.CloseCurrentDatabase
   AppliB.Quit AcQuitSaveNone
   Set AppliB=Nothing
 End if
end if
End sub
 
Private Sub Form_Close()
 LoadUnLoad False
End sub

[helas]

Si l'application B est une base Access tu peux utiliser le Timer pour scruter la presence d'un fichier qui après lecture peut être détruit