Sub Resoudre()
Dim symbole As Integer, i As Integer, j As Integer
Dim c As Object
Sheets("Modèle").Select
'ajout staple
'appelle VersionSolveur pour savoir lequel charger selon version Excel
Call VersionSolveur
'Spécifier les contraintes technologiques.
Application.ReferenceStyle = xlR1C1
ActiveWorkbook.Names.Add Name:="MD", RefersToR1C1:= _
"=R" & DebTabM & "C" & NbVar + 4 & ":R" & DebTabM + M + N - 1 & "C" & NbVar + 4
Application.Run SolverName & "SolverAdd", _
"R" & DebTabM & "C" & NbVar + 2 & ":R" & DebTabM + M + N - 1 & "C" & NbVar + 2, 2, "MD"
'Spécifier les options du solveur.
'ajout staple
' il faut décortiquer les parametres de cette ligne de syntaxe
'Application.Run SolverName & "SolverOptions" ....
If OfficeVersion <= 12 Then
Application.Run SolverName & "SolverOptions", 10000, 10000, 0.000001, True, False, 1, 1, 1, 0, _
False, 0.0001, True
ElseIf OfficeVersion >= 14 Then
Application.Run SolverName & "SolverOptions", 10000, 10000, 0.000001, True, False, 1, 1, 1, 0, _
False, 0.0001, True, 500, 0, True, False, 0.6, 10000, 1000, False, 3600
Else
MsgBox " Version d'Excel non supportée par ce gabarit."
End If
Application.Run SolverName & "SolverSolve", False, False
Application.ReferenceStyle = xlA1
Call PresenterSolution
End Sub