Je ne vois pas pourquoi la compilation serait un problème : "savoir si on compile la bonne version" Que veux-tu dire ?
Si, tu peux prévoir ce genre de communication (des DLL par exemple, avec une appli fédératrice), mais ça se résumera à lancer des fonctions qui ne pourront porter que sur les objets interne à ce programme.Ca j'y avais penser, vu que j'en ai qqs unes qui sont indépendantes, mais les dll doivent etre en langage C, que je connais pas, et je sais pas comment on fait pour déclarer un .bas.
Ton appli principale pouvant servir de "serveur COM" (*) et les sous-applis pouvant communiquer et se servir des fonctions de l'appli principale.Mais sinon, comment tu configure ca, sachant que je suis en Access 2003(je pense pas que c'est du .net).
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLe problème est que je n'arrive pas à trouver comment on fait dans le cas où par ex. la sous-applis AppUtilities doit appeler une procédure ou fonction qui se trouve dans la sous-applis AppWrkScreen, ou même une procédure/fonction se trouvant dans un module de l'applis principale AppMain.
Application.Run "NomSub", "param1", "param2",... 'ou pour une fonction x=Application.Run("NomSub", "param1", "param2",...)
De même pour les variables que j'ai déclarées dans une classe, comment faire, si je la met et la déclare dans AppMain, pour l'appeler dans les sous-applis.
' Dans General Functions de la appli principale AppMain Public mVar As New mVariables ' 1ere et unique fois à déclarer en New Public Function MainTakeVar() As Object Set MainTakeVar = mVar End Function ' Dans General Functions de la sous-applis AppUtilities Public mVar As Object Public uVar As New uVariables ' 1ere et unique fois à déclarer en New 'Dans le 1er form que l'on ouvre de la sous-applis Sub Form_Open(Cancel As Integer) Set mVar = Application.Run("MainTakeVar") ... End Sub ' Si besoin de la classe uVar dans une autre sous-applis, pareil: ' ' dans la sous-applis AppUtilities Public Function UtilTakeVar() As Object Set UtilTakeVar = uVar End Function ' dans la sous-applis AppWrkScreen Public mVar As Object Public uVar As Object 'Dans le 1er form Sub Form_Open(Cancel As Integer) Set mVar = Application.Run("MainTakeVar") Set uVar = Application.Run("UtilTakeVar") ... End Sub