[VB6] Utiliser le solver d'Excel

Bonjour :)

je fais une application sous vb6 qui me génère des systèmes d'équations. Je souhaite à présent les résoudre grâce au solver d'Excel par la méthode des moindres carrés.
j'ai donc placé la référence à Excel, et généré mon document comme il faut (je vérifie à chaque fois en enregistrant le document), il ne me reste plus qu'à exécuter le solver, mais je n'y arrive pas :(

j'ai essayé en copiant le code créé par les enregistreurs de macros pour ajouter la référence au solver, et ca marche. En revanche, quand je copie le code de la macro d'exécution du solver, j'obtiens un message d'erreur :(

code de déclaration des variables :

Code:

---

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

Dim ExcelApp As Excel.Application Dim Classeur As Excel.Workbook Dim Feuille As Excel.Worksheet Dim Plage As Excel.Range   'nouvelle instance d'application Excel Set ExcelApp = New Excel.Application 'ne pas afficher d'alertes ExcelApp.DisplayAlerts = False   'nouveau classeur Set Classeur = ExcelApp.Workbooks.Add(xlWBATWorksheet) 'sélectionner la feuille Set Feuille = ExcelApp.Worksheets(1) Feuille.Name = "CMP"

---

ce code fonctionne bien :)

code pour ajouter la référence au solver :

Code:

---

ExcelApp.AddIns("Solver Add-in").Installed = True

---

ce code fonctionne bien aussi (à chaque fois j'enregistre le fichier grâce à la méthode "SaveAs" et je vérifie), j'ai bien "Solver Add-In" de cocher dans les options de macros complémentaires (menu outils -> macros complémentaires)

par contre, quand je copie le code de la macro d'exécution du solver :

Code:

---

1 2 3 4 5 6 7

SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverAdd CellRef:="$A$1", Relation:=3, FormulaText:="0" SolverAdd CellRef:="$B$1", Relation:=3, FormulaText:="0" SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverSolve

---

j'obtiens une erreur de compilation lors de l'exécution de la feuille qui contient ce code :

Citation:

---

Procédure Sub ou Function non définie

---

l'erreur se trouve dès la première ligne, ce qui me fait bien penser que le solver n'est pas reconnu

Comment faire donc pour pouvoir "piloter" le solver d'Excel depuis VB6 ?

j'ai essayé de donner un maximum de détails, mais si quelque chose n'est pas clair, n'hésitez pas à me le faire savoir ;)
merci pour votre aide !

Hello,

Pour cette ligne,

Citation:

---

SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1"

---

J'ai trouvé cette syntaxe dans l'aide VBA

Code:

---

SolverOK setCell:=Range("BénéficeTotal"), maxMinVal:=1, byChange:=Range("C4:E6")

---

Si ça peut te donner une indication...

A+

Tant qu'à faire, j'ai aussi ça :

Code:

---

1 2 3 4 5

SolverLoad loadArea:=Range("A33:A38") SolverChange cellRef:=Range("F4:F6"), relation:=1, formulaText:=200 SolverAdd cellRef:=Range("F4:F6"),relation:=1, formulaText:=100 SolverDelete cellRef:=Range("C4:E6"), relation:=4 SolverSolve userFinish:=False

---

A toutes fins utiles

merci de ton intervention :)

Mais le problème n'est pas un problème de syntaxe je pense, c'est plutôt que VB ne connait pas le solver d'excel, et n'arrives donc pas à le "piloter".
Je cherche donc à déclarer le solver comment étant une macro complémentaire d'Excel pour pouvoir l'utiliser depuis mon code sous VB6 ;)

Ok, je dois avoir ça quelque part...

A tout'

En attendant, j'ai ça dans l'aide

Code:

---

Set a = AddIns("Macro complémentaire Solveur")

---

A+

Voilà, si ça peut te convenir

Code:

---

AddIns("Conversion_Francs_Euros.xla").Installed = True

---

A+

je viens d'essayer ca :

j'ai rajouter dans ma partie déclarative :

Code:

---

Dim SolverExcel As Object

---

puis dans mon code :

Code:

---

1 2	Set SolverExcel = AddIns("Solver Add-in") Call SolverExcel.solverok("$G$3", 2, "0", "$A$1:$B$1")

---

résultat : erreur à la compilation sur la 2eme ligne -> l'objet ne gère pas cette méthode :evil:

mais ca doit s'approcher de ca ;)

je me demande ici, s'il n'est pas possible de faire quelque chose avec la DLL ou le .XLA du solver (chez moi, c'est dans le dossier d'Office : Office10\Library\Solver). Peut être que la DLL fournit des API ? comment vérifier ca ?

en tout cas, merci pour l'aide :D

Oui, je me doute que ce que je fais en VBA doit être adapté au VB mais là, je ne peux pas t'aider.
Cependant, pourquoi déclares-tu "SolverExcel As Object" ?
Ne serait-ce pas à l'appli de s'en occuper ? "Un truc dans le genre" :

Code:

---

1 2 3 4

With appliExcel '???? tu vois pour la syntaxe (!) Set SolverExcel = AddIns("Solver Add-in") Call SolverExcel.solverok("$G$3", 2, "0", "$A$1:$B$1") end with

---

Vraiment à tout hasard... :cry:

A+

je declare SolverExcel en tant qu'objet, parce qu'il n'y a pas de type Solver :P mais je sais que ca sera un objet, donc je le declare en tant qu'objet ;)

j'ai bien pense a ta methode, mais le soucis, c'est que la fonction AddIns renvoi un objet AddIn, et que, apres avoir regarde dans la doc, je ne vois pas ce que je vais pouvoir faire de cet objet, qui ne sert qu'a donner des infos sur le composant :(

j'ai pense a autre chose :
si j'enregistrais la macro de solver dans un module vba, est ce qu'apres, je pourrais rattacher, via du code, ce module a mon fichier excel pour executer les macros qui sont dedans ?

Oui, "il peut le faire !"

Tu places ton code dans

Code:

---

1 2 3

Sub Workbook_Open() '...Ton code End sub

---

A l'ouverture du .xls, il exécutera tout ce que tu voudras... :wink:

A+

oui, mais... :oops:

je répète ce que je compte faire pour y arriver, histoire qu'on soit sûr de se comprendre :
- sous VB, je génère mon système d'équations
- je créé une instance d'Excel
- je remplis la feuille avec le système d'équations

ce que je voudrais faire :
- toujours sous VB, rattaché un module VBA (enregistré sur le disque dur), à l'instance d'Excel
- lancer la macro de ce module pour qu'elle traite le système d'équations de la feuille Excel

si j'arrive à faire ça, je pourrais sans problème récupéré les solutions après :)
je ne pense donc pas que ce que tu m'as donné puisse marcher, on devait s'être mal compris ;)

Ok,

Dans ce que tu veux faire, je n'ai pas bien compris ça :

Citation:

---

- toujours sous VB, rattaché un module VBA (enregistré sur le disque dur), à l'instance d'Excel

---

ou si j'ai compris, je ne sais pas faire ça tel quel...

J'ai vu passé, il y a un mois ou deux, un post sur une demande d'un xla créant un objet application Excel (c'était du moins la volonté du "posteur") et je crois bien qu'il avait trouvé une solution (sinon détourné le pb) qui lui permettait de faire "ce qu'il souhaitait" depuis VB créant une instance Excel (!) La question est : Est-ce le même pb ?

Ce que je sais faire : ajouter une xla dans Excel et l'activer, placer la sub qui fait ça dans une procédure lancée à l'ouverture du fichier... Ce qui ne paraît pas du tout résoudre ton pb.

Je laisse donc la main... Si le "posteur" en question passe par là, il saura te répondre mieux que moi.

Bonne chance

A+

En fait, je voulais créer un module VBA contenant la macro du solver, et pour chaque système à résoudre, créer une instance Excel, et ajouté ce module à l'instance. Mais bon, passons car j'ai fait plus simple.

J'ai reussi a faire ce que je voulais faire :

-j'ai créé un fichier excel vide, dans lequel j'ai créé la macro exécutant le solver
- sous VB, je génère mon système d'équations
- ensuite, j'ouvre mon fichier excel contenant la macro
- je remplis le fichier excel avec le système
- je lance la macro
- je récupère les résultats

MAIS (il y a toujours un mais... :x ), il y a un hic :
au moment de lancer la macro, j'obtiens un message d'erreur de l'instance Excel :

Citation:

---

Solver : An unexpected internal error occured, or available memory was exhaused.

---

J'ai regarde le gestionnaire des taches, et Excel n'a pas mange toute la memoire (la memoire occupee max est faible), donc je ne pense pas que ce soit ca qui cloche. Mais je ne vois pas quoi d'autre non plus, car j'ai copié la macro qui marche !

petit à petit, je vais y arriver !!!! :)

Que fait ta macro ? Juste activer la macro complémentaire ?

A+

ma macro est dans un module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub SolverMoindresCarres() SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverAdd CellRef:="$A$1", Relation:=3, FormulaText:="0" SolverAdd CellRef:="$B$1", Relation:=3, FormulaText:="0" SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _ :=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _ IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverSolve End Sub

---

j'ai essayé, dans mon code VB de remplacer l'appel de la procédure :

Code:

---

Call ExcelApp.Run("SolverMoindresCarres")

---

par

Code:

---

Call ExcelApp.ExecuteExcel4Macro("SolverMoindresCarres")

---

ca ne fait plus d'erreur, mais ca ne semble pas exécuter la macro :(

Oui, je crois que tu dois désigner le nom du classeur... :cry: mais avec VB... :?:

A+

bonjour ;)

j'ai essayé pas mal de choses, et à chaque fois, j'obtiens l'erreur "impossible de trouver la macro" :cry:

donc, j'ai mon fichier excel, qui ne possede qu'une seuille feuille, nommée CMP. Sous l'éditeur VBA du fichier, j'ai aussi renommé la feuille de code en CMP.

j'ai essayé de lancer la macro depuis mon appli VB en faisant un :

Code:

---

Application.Run("CMP!SolverMoindresCarres")

---

j'obtiens le message :

Citation:

---

Impossible de trouver la macro 'CMP!SolverMoindresCarres'

---

j'ai ensuite essayé de placer la macro dans un module nommé MdlSolver, je l'appelle depuis VB en faisant :

Code:

---

Application.Run("Solver.xls!SolverMoindresCarres")

---

j'obtiens le message :

Citation:

---

Solver : An unexpected internal error occured, or available memory was exhausted

---

je pense donc que ma deuxième méthode est la bonne pour l'appel, mais comme la macro est dans un module, elle ne sait pas sur quelle feuille elle doit agir (même s'il y en a qu'une !), donc elle plante, c'est "logique"...

j'essaye donc de combiner les 2 méthodes :
je place ma macro dans le code de la feuille CMP, et je l'appelle depuis VB en faisant :

Code:

---

Application.Run("Solver.xls!CMP!SolverMoindresCarres")

---

j'obtiens le message :

Citation:

---

Impossible de trouver la macro 'Solver.xls!CMP!SolverMoindresCarres'

---

bon, il est 8h50, je me dis qu'il faut rester calme, il fait beau, faut etre zen :)

bref je continue mes recherches, et j'ai la bonne idée de créer une nouvelle macro, à partir de l'enregistreur de macro, qui lance la macro, histoire de voir la syntaxe. J'obtiens le code :

Code:

---

Application.Run("Solver.xls!CMP.SolverMoindresCarres")

---

je mets ca dans VB, je lance, j'obtiens :

Citation:

---

Solver : An unexpected internal error occured, or available memory was exhausted

---

et là, je ne vois vraiment pas pourquoi :(

bref, je m'en remets à vous

PS : le code de la macro n'a pas changé ;)

Une fois la résolution effectuée, le solveur affichait une boîte de dialoge demandant si on veut garder les résultats.
Comme j'instancie l'application, mais je ne la rends pas visible, j'ai pensé que ca pouvait venir de là, j'ai donc essayé en rendant l'application visible, ça ne change rien, j'ai aussi modifié la macro, mais ça ne change pas plus

Code:

---

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

Public Sub SolverMoindresCarres() SolverReset SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverAdd CellRef:="$A$1", Relation:=3, FormulaText:="0" SolverAdd CellRef:="$B$1", Relation:=3, FormulaText:="0" SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _ :=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _ IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False SolverOk SetCell:="$G$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1:$B$1" SolverSolve UserFinish:=True SolverFinish KeepFinal:=1 End Sub

---

ça me dépasse vraiment là, même si mes compétences de développeurs sont encore relativement maigres, je n'arrive vraiment pas à saisir d'où vient le problème :(

toute aide est vraiment la bienvenue, car je commence à épuiser mon stock d'idées :cry:

Désolé mais là, je suis sec.
Mais où sont donc les Tan, CatBull, AlainTech, Bbil, Tofalu, Bidou, DarkVader et autres "sachants" du forum :sleep:
Ah ! s'ils passaient par ici, ils sauraient te dépatouiller ça d'un seul coup d'un seul... :cry:

Juste pour dire... :twisted:

Courage, dans cinq minutes zaza va se reveiller... :wink:

merci de ton soutien :)

ca va etre l'heure de la debauche, je vais aller poser le cerveau dans un coin et le laisser jusqu'a demain !
peut etre que je trouverais une solution miraculeuse a mon retour demain, on peut toujours rever :lol:

Solution TRES moche adoptee, faute de mieux, et les besoins du patron etant ce qu'ils sont :evil:

- sous VB, je créé une instance d'Excel
- j'ouvre le document contenant la macro de resolution
- je remplis la grille avec le système d'équations
- j'enregistre les modifications et je ferme le document
- je supprime l'instance Excel
- je lance Excel par la commande Shell, avec ouverture du document en paramètre
- je dis à l'utilisateur (MsgBox) de lancer la macro, d'enregistrer les modifications, puis de fermer le document, avant de cliquer sur le bouton OK de la MsgBox
- une fois cela fait, j'ouvre une instance Excel, je réouvre le document
- je traite les solutions données par le solver
- je ferme le document
- je supprime l'instance Excel

déjà, en soit, c'est très moche :? mais autour de ca, je mets une boucle pour chaque système (une bonne dixaine), ça devient très très convivial comme procédé :cry:

Hello, c'est re-moi...

Citation:

---

- je lance Excel par la commande Shell, avec ouverture du document en paramètre
- je dis à l'utilisateur (MsgBox) de lancer la macro, d'enregistrer les modifications, puis de fermer le document, avant de cliquer sur le bouton OK de la MsgBox

---

Comment dis-tu à l'utilisateur de lancer la macro ? Utilises-tu une macro Workbook_open() ? Cela éviterait de soliciter l'utilisateur.
L'enregistrement et la fermeture d'excel peut se faire sur seule question : "Enregistrer le document et quitter ?", tu peux également mettre "des choses" dans Workbook_Close() comme "quitter Excel"
La, si tu as besoin, je pourrai enfin :cry: t'aider...

A+

salut :)

je dis à l'utilisateur de lancer la macro grâce à une MsgBox.
J'ai bien pensé à la solution de l'évènement Workbook_Open, et j'ai testé d'ailleurs, et ça me générait la même erreur que lorsque je le faisais faire par VB 8O Ce bug relève du paranormal, j'ai donc appelé Mulder mais suis tombé sur sa boîte vocale...

L'enregistrement et fermeture de l'application, ça je l'ai automatisé maintenant, donc j'en parle plus.

En résumé, l'utilisateur doit juste cliquer sur un bouton pour lancer la macro, sinon ça bug :twisted:

et puis maintenant de toute façon, j'aurais plus trop le temps de m'occuper de ça, puisque le projet prends fin cette après-midi ;)

En tout cas, merci bcp pour l'aide ouskel'n'or :)

Bonne chance !

bon compte tenu du temps passé (j'ai aussi regardé)
il y a belle lurette que tu aurais pu trouver un module
de programmation linéaire

beh figures toi que j'ai cherche une solution intermédiaire. Mais apparement, un solveur d'équations par la méthode des moindres carrés, ça court pas les rues :(

attention si tu es seulement à la recherche d'un solveur d'équation
par la méthode du moindre carré tu n'as pas besoin du solveur excel

regarde à régression dans l'aide excel (j'ai même une procédure access perso)

si tu as vraiment besoin de programmation linéaire (simplex)
là tu as un probléme

mais il existe des algos pas trop difficiles (en cherchant on doit trouver une librairie simples sous vb)
d'autant que les calculs font pour l'essentiel appel à du calcul matriciel
et que tu pourrais les sous traiter à excel sans tous ces ennuis

par ailleurs la référérence solver peut être activée côté excel

si j'imagine une solution

données de départ.... copie excel sur une feuille....lancement procédure sous excel et traitement des données...renvoi solutions sous une autre feuille excel

est ce que tu as exploré cette voie ?

En fait, au départ, mon appli générait un système de 2 équations à 2 inconnues, ça, c'est très simple à résoudre, et j'avais pondu mon code moi-même (tout seul comme un grand !!!) :)

quand j'ai montré le résultat au boss, il a dit que c'était bien, mais qu'il voulait pas de la méthode du systèmes à 2 équations 2 inconnues :evil: et qu'il voulait un système à n équations à 2 inconnues avec n > 2 qui se résolvait par la méthode des moindres carrés... Ca, je l'ai appris mardi, alors qu'il savait très bien que le projet se finit aujourd'hui ! :evil:

J'aidonc cherché du code ou un algo de résolution de système par la méthode des moindres carrés, mais n'ai rien trouvé :( Il m'a alors parlé du solveur d'Excel. Moi je me suis dit qu'il y avait du VB derrière (ignorant que c'était un composant supplémentaire) et donc que c'était réutilisable dans mon appli VB. De là découle tout ce topic :P

Bref, pour résumer (et aussi arrêter de raconter ma vie, désolé les gars ;)), j'ai juste besoin de quelque chose (module, librairie, composant ou autre) qui me permette de résoudre un système de n équations à 2 inconnues par la méthode des moindres carrés :)

Hello,

Je passais par là...
Je ne sais pas où tu en est mais je viens de comprendre pourquoi la macro Workbook_open ne peut pas marcher : Tu n'ouvres pas le fichier... :cry:
Pile une semaine pour comprendre... C'est pas beau, ça ? :wink:

A bientôt, sûrement...

la méthode pour relier n équations à n inconnues
se met très facilement en place par une simple inversion
matricielle et multiplication de matrice sans solveur

par contre par la méthode des moindres carrés on gère les régressions
linéaires

les deux sont faciles à programmer

les deux méthodes ne sollicient pas le solveur
pourrais tu nous donner un exemple de ton calcul plus précis et du besoin sous tendu