Lire un fichier Excel ouvert depuis Arena Simulation Model

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:

---

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 ! :roll:

re
ton classeur est ouvert par une application tiers
il est donc fort probable qu'elle ouvre ton classeur dans une autre instance que le classeur contenant ta macro
parti de la getobject ("",exel.application) devrait te retourner la collection des instances de l'application excel

il n'est pas forcé (certainement meme) que ce soit la premiere instance de excel
parti de la ton xl.workbook("blabla").range...... te renvoir une erreur

je pense qu'il faut boucler sur les instances et tester si le classeur recherché est ouvert dans chaque instances
d'autre affirmeront ou infirmeront
a mediter;)

EDIT:
apres tests effectivement getobject("","excel.application") ne renvoie que l'instance de l'application excel dans la quelle se trouve le classeur macro
donc walouh pour getobject

tres étonnant comment reagi getobject en vba VS vbscript

j'avais apporté un debut de reponse pour le meme genre de question ICI

Merci de ta réponse ! J'ai regardé ton lien vers l'autre sujet.. Je t'avous que j'y suis un peu perdu. Je me débrouille en VBA dans mes magouilles habituels disons mais ces histoires d'objets, d'instances etc je suis un peu perdu.. (J'ai copié betement ton code et essayé de lancer le test mais j'ai eu une erreur..)

Voici ce que j'utilise dans mon fichier Excel ouvert manuellement pour lancer Arena :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub RunArenaSimulation() 'Declare variables Dim oArenaApp As Arena.Application Dim oModel As Arena.Model, oSIMAN As Arena.SIMAN Dim oModule As Arena.Module Dim ModName As String   'Start Arena, open model, make Arena active & visible Set oArenaApp = CreateObject("Arena.Application") ModName = ThisWorkbook.Path + "\SimulationFactory.doe" Set oModel = oArenaApp.Models.Open(ModName) Set oSIMAN = oModel.SIMAN oArenaApp.Activate   oArenaApp.Visible = True   'Run model in batch mode and send results back to Excel oModel.BatchMode = False ' Turn off animation = True oModel.QuietMode = True ' Do not ask final question = True oModel.Go (smGoWait) ' Suspend VB until run ends   'End model run and exit Arena oModel.End 'oArenaApp.Quit End Sub

---

En changeant quelques trucs, l'event de lancer la simulation me lance cette macro dans Arena :

Code:

---

1 2 3 4 5 6 7 8 9

Dim xl As New Excel.Application Dim fileName As String   Private Sub ModelLogic_RunBegin() fileName = ThisDocument.Model.Path + "ProductionPlan.xlsm" xl.Visible = True xl.Workbooks.Open fileName MsgBox "" & xl.Workbooks("ProductionPlan.xlsm").Worksheets("Input").Cells(3, 3).value End Sub

---

Ce code ci fonctionne mais m'ouvre un second Excel en lecture seule.. (Mais après l'étape de lecture, j'aimerai écrire dans mon excel les résultats de la simulation, j'ai donc ni le droit et 2 mêmes fichiers excel ouverts..

Aurais tu la patience de m'expliquer un peu ce que tu en penses ? Sans trop employer de jargons de programmations je t'en prie :aie:

Je pense que tu as compris l'idée, mon idée ultime est d'Excel, lancer une simulation Arena qui devra aller lire les données inputs, écrire dans l'excel les outputs et se refermer gentiment. (Voir même garder tout ce process avec Arena en non visible par l'utilisateur (mais je verrai ca plus tard :ptdr:) Penses tu la chose faisable ?

Merci à toi :)

Bonjour !

Citation:

---

Envoyé par Whtekenta

Seulement ma dernière ligne ne fonctionne pas Run Time Error 9: Subscript out of range

---

Soit erreur sur le nom du classeur
soit il n'existe pas dans l'instance pointée par la variable XL
ce qui serait tout à fait normal dans le cas de plusieurs instances ouvertes !
Dans ce cas il ne faut pas chercher l'application mais le chemin complet du fichier via la fonction GetObject …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Citation:

---

Envoyé par Marc-L

Bonjour !

[/INDENT]

Soit erreur sur le nom du classeur
soit il n'existe pas dans l'instance pointée par la variable XL
ce qui serait tout à fait normal dans le cas de plusieurs instances ouvertes !
Dans ce cas il ne faut pas chercher l'application mais le chemin complet du fichier via la fonction GetObject …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

---

J'ai donc essayé ce code ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim xl As 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 "" & fileName Set xl = GetObject(fileName, "Excel.Application") MsgBox "" & Workbooks("ProductionPlan.xlsm").Worksheets("Input").Cells(3, 3).value End Sub

---

(Je suis sur que ma string fileName est correcte pour atteindre mon fichier)
J'ai l'erreur Run time error 432: File name or class name not found during Automation operation

si j'écris ma ligne de cette facon : Set xl = GetObject(fileName, Excel.Application)
J'obtiens cette erreur Run time error 429: ActiveX component can't create object

si je change mon code en :

Code:

---

1 2 3 4 5 6 7

Private Sub ModelLogic_RunBegin() fileName = ThisDocument.Model.Path + "ProductionPlan.xlsm" MsgBox "" & fileName Workbooks.Open fileName MsgBox "" & Workbooks("ProductionPlan.xlsm").Worksheets("Input").Cells(3, 3).value Workbooks("ProductionPlan.xlsm").Worksheets("Input").Cells(7, 7).value = 15 End Sub

---

Ma deuxieme Msgbox fonctionne et m'affiche la valeur que j'ai dans mon workbook. Et la dernière ligne ne fait rien dans mon workbook mais se compile et s’exécute. Une fois fini si je ferme mon excel un second excel s'affiche avec le message que Excel est maintenant dispo, est ce que je veux l'ouvrir en lecture-écriture ? En mettant oui l'excel s'ouvre et ma valeur d'écriture 15 est bien présente. J'en conclue donc que ce problème d'instance est bien ce que je rencontre. Cette dernière partie n'est pas ce que je recherche et n'est que le fruit de mes bidouilles pour essayer de comprendre le problème...

Bref ducoup, est ce que j'utilise la fonction GetObject mal dans mes premiers exemples ?

Merci beaucoup de votre aide

Citation:

---

Envoyé par Whtekenta

est ce que j'utilise la fonction GetObject mal dans mes premiers exemples ?

---

Oui car le fichier doit être renseigné seul dans cette fonction …
Et en espérant qu'il soit ouvert uniquement dans une seule des instances !
Logiquement il ne devrait pas y avoir plusieurs instances d'ouvertes en même temps mais bon …

Citation:

---

Envoyé par Marc-L

Oui car le fichier doit être renseigné seul dans cette fonction …
Et en espérant qu'il soit ouvert uniquement dans une seule des instances !
Logiquement il ne devrait pas y avoir plusieurs instances d'ouvertes en même temps mais bon …

---

Si j'ai bien compris donc utiliser ce code : (?)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim xl As 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 "" & fileName Set xl = GetObject(fileName) MsgBox "" & xl.Workbooks("ProductionPlan.xlsm").Worksheets("Input").Cells(3, 3).value xl.Workbooks("ProductionPlan.xlsm").Worksheets("Input").Cells(7, 7).value = 15 End Sub

---

Cela me renvoit l'erreur Run-time error '13' : Type mismatch

J'ai essayé cette variante de ligne de code (mon fichier Arena et Excel sont dans le même dossier) :
Set xl = GetObject("ProductionPlan.xlsm")
mais j'obtiens Run-time error Automation error Invalid syntax

Je ne saisis pas vraiment ces histoires d'instances mais je pense que c'est mon cas. J'ouvre Arena et lance la simulation qui lance ce code par évènement, en lancant ma macro VBA situé dans ce dit fichier ProductionPlan.xlsm...

Citation:

---

Envoyé par Whtekenta

Cela me renvoit l'erreur Run-time error '13' : Type mismatch

---

J'ai rereregardé encore la definition de la fonction getObject et en changeant :
dim xl as Excel.Application
en
dim xl as Object

il s'avère que cela fonctionne ! (L'aide de Arena simulation disait pourtant d'utiliser as Excel.Application... :weird:)
Merci beaucoup de votre aide je vais pouvoir continué de travailler ca jusqu'au prochain nœud rencontré :mouarf:

Vérifier le contenu de la variable fileName, à comparer avec la propriété FullName d'un classeur ouvert dans Excel …
Si la fonction Dir(fileName) renvoie une chaine vide alors le fichier n'existe pas (ou erreur dans fileName).

La variante ne pouvant fonctionner sans le disque ni le répertoire du fichier ! (sauf si dans le dossier en cours …)

Et oui un classeur n'est pas une application !