Bonjour à tous,

J'aimerai depuis Arena qui incorpore VBA et ActiveX, lire des donnéees dans un workbook Excel qui sera déja ouvert. Voici comment je m'y prend pour l'instant dans un module Event dans Arena qui se lance quand je lance Arena depuis ma macro VBA du dit workbook:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Dim XL As New Excel.Application
Dim w As Excel.Workbook
Dim wS As Excel.Worksheet
Dim fileName As String
 
Private Sub ModelLogic_RunBegin()   
    fileName = ThisDocument.Model.Path + "ProductionPlan.xlsm"
    'MsgBox "" & ThisDocument.Model.Path
    Set XL = GetObject("", "Excel.Application")
    MsgBox "" & XL.Workbooks("ProductionPlan.xlsm").Worksheets("Input").Cells(3, 3).value 'simple test pour vérifier mon accès
 
End Sub
Seulement ma dernière ligne ne fonctionne pas Run Time Error 9: Subscript out of range
J'ai essayé plusieurs variantes de cette ligne pour vérifier et le problème vient de l'appel de Workbooks("ProductionPlan.xlsm") je pense..
Je pense que le problème est assez bête mais j'ai épuisé toutes mes idées et ce que je trouvais sur internet..

Si quelqu'un saurait m'aider ce serait avec grand plaisir !