activation du solver

[Amp]

Bonjour,
j'ai une application Labview qui ouvre ouvre un classeur Excel, complete une feuille de travail avec des donnees et lance 2 macro qui lui sont associees.
L'une de ces macro utilise le Solver, et je voudrais que ces operations ne demandent pas d'intervention utilisateur, que tout soit automatique et transparent.
Le probleme: le solver doit avoir ete active au prealable manuellement pour que la macro qui utilise le solver fonctionne.

sinon on a l'erreur sur State:
State = SolverGet(TypeNum:=1)
If IsError(State) Then
MsgBox "You have not used Solver on the active sheet"
End If

Y a-t-il un moyen d'activer le solver automatiquement dans un nouveau classeur??

 

[Amp]

Re : activation du solver

Hello JMPS,
ce que tu proposes affiche une fenetre de dialogue a renseigner et ca je n'en veux pas...
Une autre idee ?

 

[Amp]

Re : activation du solver

Ok, je ne me suis pas bien expliquee alors...j'essaie a nouveau.

1er cas Si :
1/ j'ouvre le classeur excel contenant mes donnees et la macro en question
2/ j'execute la macro : j'obtiens un message d'erreur "solver: unexpected internal error occured..."

2eme cas Si :
1/ j'ouvre le classeur excel contenant mes donnees et la macro en question
2/ j'execute manuellement le solver
3/ et a present je lance la macro : dans ce cas plus de message et la macro s'execute.

J'ai retrouve ce probleme dans une ancienne discussion (2005) sur ce forum, mais la solution n'est pas donnee, voir:
https://www.excel-downloads.com/threads/pb-solver-sous-vba.39826/

En tous cas merci pour ton aide!

 

[Amp]

Re : activation du solver- SOS

Bon je stagne toujours... Personne n'a une solution ??

 

[michel_m]

Re : activation du solver

Bonjour Amp, José,

En lisant ton post et "l'ancien", les fonctions solverreset et solverget me gènent car elles me semblent (pas sûr de moi) inutiles...

Ci dessous tirée de mon grenier, une appli qui automatise le solveur sans problème: il s'agit de déterminer les volumes de 5 produits (range "volume") à fournir qui, multipliés par une marge unitaire donne la marge maximum;

peut être que cela te sera utile..

ActiveSheet.Unprotect
Range("volume").ClearContents
SolverOk SetCell:="marge", MaxMinVal:=1, ValueOf:="0", ByChange:="volume"
SolverSolve (True)
ActiveSheet.Protect

Si cela peut t'aider je peux te joindre l'appli, fais moi signe

 

[Amp]

Re : activation du solver

Salut Michel et Jose,

bon ca y est j'en suis sortie!!

La commande magique est SOLVER.Auto_open
Elle active le solver.
Et ca marche. Je confirme que solverreset ne sert a rien.

Merci a vous 2 et bon WE!

Amp