[VB] Interactions VB6->VBA-E

Version imprimable

05/06/2006, 11h07
truman

[VB] Interactions VB6->VBA-E

Bonjour.

Bon c'est un peu compliqué.

J'ai une application VB6 qu'on appelera "Admin.exe". Cette application contient des interfaces permettant, à terme, de configurer entièrement une application VBA-E, appelons-là "Client.xls".

Dans mon "Admin.exe", j'ai également des designer forms (concepteurs). En fait, ces forms, j'aimerai en faire des templates. Je m'explique.

J'ai 2 designer forms appelées "template1" et "template2". A travers mes interfaces, l'utilisateur d'"admin.exe", pourra choisir un de ces 2 modèles, choisir l'intitulé de la form, personnaliser (dans certaines limites) son contenu (contenu d'une combobox entre autres), etc. Cette form est en fait destinée à être intégrée au "Client.xls".

Une fois toute la configuration effectuée, l'utilisateur d'"Admin.exe" aura la possibilité de "générer" le "Client.xls".

Donc à votre avis, intégrer dans un projet VBA-E des forms customisés à partir de templates contenues dans un projet VB6, c'est possible ou je rêve éveillé ? :aie:

PS : Attention, les templates ne sont absolument pas modifiés ! Les informations de "personnalisation" saisies par l'utilisateur sont stockées quelque part, puis seront utilisées lors de la génération du fichier Excel...

Tant que j'y suis, j'aimerai également savoir comment, à partir d'"Admin.exe", je pourrai créer/copier/écrire dans un module propre à "Client.xls". Ya-t-il possibilité de tripatouiller les macros d'un Excel depuis un EXE ?

Merci.
05/06/2006, 12h33
ouskel'n'or

Je réponds à ce que je sais...

Citation:

Envoyé par tu

Ya-t-il possibilité de tripatouiller les macros d'un Excel depuis un EXE ?

Oui ! Mais c'est... pas prudent ? pas recommandé ? la galère ? une usine à gaz ?
Tout dépend si tu veux modifier quelques paramètres ou une partie importante du code. Tu peux faire l'un et lautre mais pour tester en cas de modifs importantes du code, ce n'est pas le pied. Et là, c'est toi qui vois.

Pour le reste, tu devras attendre qu'un spécialiste VB passe par là... ce qui ne saurait tarder ;)

A+
05/06/2006, 14h46
truman

Citation:

Envoyé par ouskel'n'or

Je réponds à ce que je sais...

Oui ! Mais c'est... pas prudent ? pas recommandé ? la galère ? une usine à gaz ?
Tout dépend si tu veux modifier quelques paramètres ou une partie importante du code. Tu peux faire l'un et lautre mais pour tester en cas de modifs importantes du code, ce n'est pas le pied. Et là, c'est toi qui vois.

Pour le reste, tu devras attendre qu'un spécialiste VB passe par là... ce qui ne saurait tarder ;)

A+

Salut.

Ah nan la on parle vraiment de modifs importantes. En fait, je suis un peu dans une impasse car je dois développer une application quasimment totalement configurable.

Or si l'on considère une application qui pourrait se paramètrer elle-même (et donc se modifier au cours de son exécution), niveau interprétation de code "à la volée", VB n'offre aucune solution convenable (dites-moi si je me trompe) : VBScript ne me convient absolument pas.

C'est pourquoi j'ai envisagé de tronquer l'application en deux appli (l'une en VB6, l'autre VBA) quasi indépendantes l'une de l'autre... Je ne vois pas d'autre solution.

Je suis un peu face aux limites techniques du langage... :(
05/06/2006, 14h49
jmfmarques

Citation:

C'est pourquoi j'ai envisagé de tronquer l'application en deux appli (l'une en VB6, l'autre VBA) quasi indépendantes l'une de l'autre

solution sage !
05/06/2006, 14h56
truman

Citation:

Envoyé par jmfmarques

solution sage !

Merci. Mais qu'en est-il de mes interrogations ci-dessus ? :aie:
C'est une des ces prises de tête si vous saviez :roll: :mouarf:
05/06/2006, 20h19
truman

Mon bric à brac vous inspire pas plus que ça on dirait :mouarf:
06/06/2006, 00h26
ouskel'n'or

Si, ton "bric à brac" est intéressant mais on verra ça demain... parce que là :sleep:
Ne perds pas le moral. ;)

A+
06/06/2006, 09h52
truman

Citation:

Envoyé par ouskel'n'or

Si, ton "bric à brac" est intéressant mais on verra ça demain... parce que là :sleep:
Ne perds pas le moral. ;)

A+

Moi, perdre le moral ? Jamaiiiiis.

En plus, dans mon horoscope de ce matin dans "Métro", on me disait "Surtout ne vous découragez pas ! Persistez dans votre travail, ça va finir par payer !!"

Moi qui crois jamais à ces conneries, je me suis dit : "Put... c'est dingue..." :aie: :roll:

Bon par contre, autant je garde le moral, autant l'utilisation intensive et prolongée de mon modeste cerveau pour des résultats quasi-inexistants m'incite fortement à la glandouille (exemple : Je vais sur les forums de développez.com :aie: ). Et ça c'est pas pro... :mouarf:

On est tous motivés par le résultat, c'est comme ça :roll:
06/06/2006, 14h13
ouskel'n'or

C'est bien, je 'achement rassuré, je crains les dépressifs :lol:
Ton pb :
As-tu opté pour une solution ? VB + VBA
As-tu la possibilité de placer des macros dans Excel qui fassent ce que tu veux ou bien VB doit-il passe des paramètres à Excel ?
Si tu veux travailler sur Excel depuis VB, tu as un truc bien fait dans la FAQ
De nombreux exemples ont été données sur le forum et une recherche avec VB & Excel te donnera une idée de tout ce qu'on peut faire.

A + je reviens je w
06/06/2006, 14h21
truman

Ben en fait, je me tâte encore entre une solution VB+VBA et une solution full VBA...
Concernant ce que doit faire l'exécutable, c'est quand même très poussé puisqu'il doit pouvoir totalement créer le fichier Excel : dessiner l'interface, créer des macros, passer des paramètres (j'utilise un fichier INI pour plus de simplicité), déclarer des variables, rajouter des forms, etc...
06/06/2006, 14h30
ouskel'n'or

Citation:

Envoyé par "tu

Concernant ce que doit faire l'exécutable, c'est quand même très poussé puisqu'il doit pouvoir totalement créer le fichier Excel : dessiner l'interface, créer des macros, passer des paramètres (j'utilise un fichier INI pour plus de simplicité), déclarer des variables, rajouter des forms, etc...

Alors là, je ne t'aiderai pas :(
Par contre avec VBA-E je pourrai sans doute t'aider bien que je ne t'encourages pas, pas du tout, et même je te déconseigne, de modifier les macros par soft. Je crois que tu n'as pas idée. Pour savoir si tes macros sont correctes, tu n'as même pas le correcteur automatique. La moindre erreur d'écriture (ex : Worksheet au lieu de worksheets, cell au lieu de cells, ";" au lieu de ","... et c'est un nouveau test avec recherche du bug, effacement de la macro, relancement de la macro créant la macro...
Ceci dit, je te sens courageux... :mouarf:

Tu dis

A+
06/06/2006, 14h55
truman

Je sais que c'est dingue...

Mais quels autres choix, pour offrir à un utilisateur de modeler totalement une application même en VBA-E ? Honnêtement, ça fait plus de deux mois que je suis sur la question, et en VB/VBA, je vois pas d'autres alternatives...

Si on offre à l'utilisateur de grandes possibilités de configuration, forcément ses actions via des "interfaces d'administration", toucheront au macro/variables/interfaces "Client" que ça soit par du code saisi directement ou par du code généré par l'appli en fonction des actions/demandes de l'utilisateur...

Je suis limite en train de développer la prochaine version de Visual Studio là ! :aie: Rigolez pas j'ai partiellement développé une RichTextBox avec des fonctionnalités VB (coloration syntaxique, affichage auto des variables/paramètres déjà existants...). Je frôle la syncope cérébrale... :aie:

En réalité, c'est un massacre puisque j'arrive à rien...

Je sais comment ça va finir tout ça... On va finir par dire que les stagiaires de P5 sont des incapables qui en branlent pas une... :mouarf: :aie:
06/06/2006, 15h34
ouskel'n'or

Et si tu nous parlais de ce que tu veux réaliser, concrètement ? Quels libertés veux-tu offir aux utilisateurs qu'elles exigent de ré-écrire des macros ? Conditions, origine des paramètres, paramètres... ?

A+
06/06/2006, 16h18
truman

Pfiouuuuuuu... On va tenté le coup.

Alors il s'agit d'une application de description de processus SI. Grosso modo, cette appli a pour but de fournir toutes les infos nécessaires à quiconque souhaite connaître le déroulement d'un processus de bout en bout au travers de diagrammes de séquence.

Plus concrétement, admettons que tu commandes un abonnement ADSL. Et bien cette appli va demander à l'utilisateur de spécifier plusieurs paramétres te concernant : nature du client, canal de vente, opération commerciale, parc existant, offre désirée, mode de remise du matériel, etc ; et va générer un diagramme qui permettra de voir ce qui se trame au niveau SI.

Telle qu'elle existait, cette appli était totalement fonctionnelle mais n'était limité qu'à un certain contexte : elle décrivait uniquement les processus de Commande-Livraison en fonction de TELS paramètres, au travers de TEL SI, constitué de TELLES applications.

L'objet de mon stage est d'améliorer et d'adapter cet outil, l'idéal étant qu'il puisse s'adapter à n'importe quel contexte. L'idée c'est donc de rendre l'application moins rigide et de permettre à une personne compétente, qu'on appelle un coordinateur fonctionnel, (que j'ai appelé "administrateur" jusqu'ici) de configurer l'outil en fonction du SI qu'elle a en charge afin que "l'utilisateur lambda" puisse par la suite générer des diagrammes pertinents.

Dans cette idée de configurabilité (ça se dit ? :aie: ), on peut donc dégager trois axes :

- L'ajout/modif/suppression d'application : partie la moins difficile et actuellement fonctionnelle

- L'ajout/modif/suppression de paramètres/attributs : ce sur quoi je me prends la tête depuis un bon moment. Concrétement, on aurait, par exemple, la possibilité d'ajouter un paramètre "sexe", prenant en valeur "homme" et "femme", intervenant après tel paramètre, et s'enchaînant avec tel autre paramètre, de sorte qu'à la saisie des paramètres on ait par la suite une nouvelle fenêtre "Sexe ?" s'affichant au moment opportun et influant sur les diagrammes générés.

- L'ajout/modif/suppression de processus (appelés cas de gestion ou usecases) sur lequel je ne me suis pour l'instant que partiellement penché mais qui offre au moins autant de joie en perspective si ce n'est plus que l'administration des paramètres car un cas de gestion dépend : des applications et des paramètres valorisés...

Il y a encore bien d'autres facteurs complexifiant l'application qui rentrent en jeu (valeurs de paramètres s'incluant ou s'excluant, ordre d'enchaînement des fenêtres variant selon la valeur des paramètres et bien d'autres...).

J'espère que tu m'as compris. C'est vrai que ce n'est pas facile à expliquer et à faire comprendre comme ça.

Tu comprends pourquoi je suis au bord du suicide ? :mouarf:
06/06/2006, 16h37
ouskel'n'or

Ouf ! Je connais quelqu'un qui adore se prendre le chou, s'il passe par là je suis bien certain qu'il aura son mot à dire :P
Quant à moi, je me fais une croix dessus. As-tu tenté un algorithme ? C'est comme si tu voulais créer un grafcet opérationnel sans connaître les entrées régissant des transitions dont tu ne sais pas ce qu'elles provoquent...
Tu n'as pas pensé à l'intelligence artificielle pour faire ça ?
Bref, pas compter sur moi et attendre autre farfelu comme toi... :wow:
Ceci dit, bon courage et bonne chance, tu en auras besoin ;)

Bien cordialement

PS - Je suivrai volontiers tes progrès :calim2:
06/06/2006, 17h15
truman

Citation:

Envoyé par ouskel'n'or

Quant à moi, je me fais une croix dessus.[...]
Bref, pas compter sur moi et attendre autre farfelu comme toi... :wow:

Mince, je comptais pas t'effrayer :mouarf:
06/06/2006, 18h38
ouskel'n'or

Trop tard ! Mais maintenant que tu m'as donnée ta démarche, y'a plus qu'à... :fou:
07/06/2006, 15h06
jmfmarques

Je me promène par là ... et n'ai qu'un mot à dire :
Quand un but est très ambitieux (et surtout si l'utilité réelle de sa finalité reste à "peser"), il doit correspondre à ses moyens...
Je me suis, comme beaucoup d'autres, lancé de tels défis...
Je me suis donc également, comme beaucoup d'autres, "cassé la figure" ici et là... Réjoui ailleurs de tel ou tel autre succès dans MES aventures...
Une chose reste certaine, il s'agissait de MES aventures et, tout à fait conscient de ce que ces aventures étaient mes propres défis à MOI-MEME, j'ai toujours fait celà dans le plus grand silence, en n'impliquant personne d'autre dans ces affaires-là ...

J'apporterai donc, S'IL LE DEMANDE, mon aide ponctuelle dans cette affaire, mais il devra s'agir clairement d'une aide PONCTUELLE, sur un point précis, ponctuel également
07/06/2006, 15h44
ouskel'n'or

J'ai dit quelque part :

Citation:

Je connais quelqu'un qui adore se prendre le chou, s'il passe par là je suis bien certain qu'il aura son mot à dire

Tu vois, j'avais raison, il s'est montré ! :mouarf:
Bonne chance à tous les deux. :marteau:
07/06/2006, 17h54
truman

C'est évident que de toute façon ça ne sera qu'une aide sur tel ou tel point précis... Je comptais pas vous filer l'énoncé et vous donner mon programme à développer (à la fois hors de question et impossible)...

Maintenant jmfmarques, tu n'as toujours pas répondu à mes premières questions (premier post de ce topic) ;)
07/06/2006, 18h40
jmfmarques

Alors, on y va !
Ta 1ère question (ici on traite une question à la fois, pas 2) était :

Citation:

Donc à votre avis, intégrer dans un projet VBA-E des forms customisés à partir de templates contenues dans un projet VB6, c'est possible ou je rêve éveillé ?

Ma réponse est :
Oui, tout est possible !
Il n'y a qu'à voir comment Microsoft s'est débrouillé pour savoir que l'on peut le faire !
Savoir que c'est possible est une chose !
Savoir comment le faire en est une autre....
Alors : montre ton début de code pour y parvenir (il va probablement falloir que tu t'intéresses de très près aux APIs si tu ne veux pas que ce truc là rame à en mourir)... et dis-nous à quel endroit précis de cette syntaxe tu coinces.;)
08/06/2006, 10h29
truman
Ben pour ce qui est de l'ajout d'une feuille à partir d'un template. Il me semble qu'on pourrait faire un truc du type :
Code:

1 2 Dim NewForm as Template1 Userforms.Add(NewForm)
Où Template1 est ma feuille modèle.

Autre interrogation : mon programme VB6 écrit des modules de classe. Comment les inclure dans l'appli VBA ?
19/06/2006, 15h17
truman

Je repose la question car j'en aurai vraiment besoin.

Admettons que j'ai un module d'écrit dans un fichier .txt ou même directement un fichier .cls, comment l'ajouter à mon appli VBA au lancement ? Ces modules devront donc également être supprimés du projet à la fermeture du programme...

Merci.
20/06/2006, 09h39
truman

Up :roll:

Allez j'ai fini par trouver alors je poste la solution au cas où ça peut servir à d'autres cinglés. :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Integer
Dim nf As Integer
Dim modnum As Integer
Dim codeline As String
For i = 1 To Application.VBE.ActiveVBProject.VBComponents.Count
    If Application.VBE.ActiveVBProject.VBComponents(i).Name = "mod1" Then
        modnum = i
    End If
Next i
    Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.DeleteLines 1, Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.CountOfLines
    nf = FreeFile
    Open ThisWorkbook.Path & "\test.txt" For Input As #nf
        Do While Not EOF(nf)
            Input #nf, codeline
            Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.InsertLines Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.CountOfLines + 1, codeline
        Loop
    Close nf

Le code contenu dans le fichier "test.txt" est chargé dans le module "mod1" au lancement du programme ;)

Plus simple :

A l'init

Code:

1
2
3
4
5
6
    'Création d'un nouveau module de classe
    Application.VBE.ActiveVBProject.VBComponents.Add vbext_ct_ClassModule
    'On renomme le nouveau module
    Application.VBE.ActiveVBProject.VBComponents("Classe1").Name = "test"
    'On importe le code contenu dans test.cls dans le module nouvellement créé
    Application.VBE.ActiveVBProject.VBComponents("test").CodeModule.AddFromFile ThisWorkbook.Path & "\test.cls"

Sur le BeforeClose du Workbook

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim modnum As Integer
    'Recherche si le module existe
    For i = 1 To Application.VBE.ActiveVBProject.VBComponents.Count
        If Application.VBE.ActiveVBProject.VBComponents(i).Name = "test" Then
            'Suppression du module            
            Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents("Incompatibilites")
            Exit Sub
        End If
    Next i
End Sub

Sinon je me sens bien seul sur ce topic :aie: