FABIEN84250
Messages postés1Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention 4 juin 2004
-
4 juin 2004 à 14:00
palary18
Messages postés1Date d'inscriptiondimanche 4 janvier 2004StatutMembreDernière intervention 2 juillet 2004
-
2 juil. 2004 à 10:42
G un message d'erreur quand je veux lancer une macro excel a partir de vb ce message est la memoire est saturee comment ce fait t'il que la memoire sature alors que je n'utilise qu'une seule macro solveur.
Merci de votre aide c assez urgent
Private Sub Command1_Click()
On Error Resume Next
Set appexcel = CreateObject("Excel.Application")
Set wbExcel = appexcel.Workbooks.Open("D:\MES DOCUMENTS\DOSSIER FAMILLE\FABIEN\IUT AIX\2°IEME ANNEE\STAGE\AIDE A LA PROGRAMMATION\resol excel\resolutiond1.xls")
Set wsexcel = wbExcel.Worksheets(1)
P = Val(Text1.Text)
N = Val(Text2.Text)
Dint = Val(Text3.Text)
F = Val(Text4.Text)
G = Val(Text5.Text)
wsexcel.Cells(1, 2).Value = P
wsexcel.Cells(2, 2).Value = N
wsexcel.Cells(3, 2).Value = Dint
wsexcel.Cells(4, 2).Value = F
wsexcel.Cells(5, 2).Value = G
Application.Run "resolutiond.xls!Macro2"
'Set SolvOk = CreateObject("Excel.application.solver")
' SolvOk("A8", "3", "1", "A7")
'SolvFinish KeepFinal:="1", ReportArray:="1"
'SolvSolve
'appexcel.Application.Run "resolutiond.xls!Macro1"
appexcel.Visible = True