VBA et Solveur sous Excel 2010

[Ipso Facto]

Bonjour à Tous,

J'ai réalisé une macro VBA qui mettait en oeuvre automatiquement le solveur sous Excel 2003.
Je suis passé à Excel 2010. J'ai installé le solveur.
Cependant, la macro plante sur (cf infra) en m'indiquant "Erreur de compilation; Projet ou bibliothéque introuvable"

SolverOk SetCell:=ActiveCell, MaxMinVal:=3, ValueOf:="0", ByChange:="$D$1"
SolverSolve (True)


Je ne vois pas ce que cela veut dire.

Quelqu'un peut m'aider ?

Merci, Merci, Merci !!!

[buzzmansai]

bonjour Ipso facto,

désolé, je n'ai pas les connaissances requises pour t'aider, mais bientôt d'autres te liront et te donneront des solutions...
je t'invite donc à patienter un tout p'tit peu... ^^

en attendant, tu peux te présenter aux autres membres du forum dans la section "présentations" si tu le désires...

au plaisir de te lire...

[Troll]

Salut et à toi !

Tu l'as installé, mais est-ce que tu l'as activé ?

CF. cette page qui explique comment l'activer : http://www.addictivetips.com/windows-tip...er-add-in/

(en Anglais, si tu n'arrives pas à comprendre, essaies avec Google Translate, et si tu ne comprends toujours pas, dis-le et je traduirai ou trouverai une version FR)

A très bientôt


Troll

[Luaine]

salut Ipso Facto,

Alors où en es-tu ?

[Informaticien zero]

Je croix qu'il faut mettre:
SolverSolve = True


Mais d'où sort cette variable? L'as tu créer au préalable?

[LAETY]

J'ai besoin de votre aide, sur 2010 , je me suis enregistré entrain de faire un solver jusqu'a la résolution, le problème est qu'après je souhaite exécuter le solver et il me met comme message en surlignant en jaune la première ligne :"erreur de compilation , projet introuvable" est ce que quelqu'un peut m'aider??

Sub MAXIPROD()
'
' MAXIPROD Macro
'

'
SolverOk SetCell:="$H$15", MaxMinVal:=1, ValueOf:=0, ByChange:="$G$6:$H$6", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$G$6:$H$6", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$H$11:$H$19", Relation:=1, FormulaText:="$I$11:$I$19"
SolverOk SetCell:="$H$15", MaxMinVal:=1, ValueOf:=0, ByChange:="$G$6:$H$6", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$H$15", MaxMinVal:=1, ValueOf:=0, ByChange:="$G$6:$H$6", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

SVP C'EST URGENT MERCI

[leader.75]

Bonjour et bienvenue LAETY.

Je ne suis pas à même de te répondre, je ne maitrise pas ce logiciel...
Par contre si tu pouvais créer ton propre topic et non te coller à la suite de celui d'un autre, ce serait mieux pour traiter ton problème.
Merci d'avance.

[Troll]

Salut vous deux,
Tu as essayé ca ? :

SolverSolve = True