Discussion :

[potili2]

Je veux avoir deux classeurs excel liés, mais telles que si les macros de l'un s'arretent, celles de l'autre se poursuivent.
J'ai donc ouvert deux sessions différentes d'excel et les tests fonctionnent: toute interruption sur l'une ne se répercute pas sur l'autre.
Mon problème est que lorsque je ferme tout et que j'ouvre à nouveau mes classeurs, les deux sessions sont regroupées et ne sont donc plus indépendantes...
comment faire pour garder l'indépendance de chaque?
merci
Jean Pierre

[potili2]

pas de solution à mon problème?
Si je fais une fausse manoeuvre, merci de me le dire, mais j'avoue ne pas trouver.
Jean Pierre

[AlainTech]

En fait, j'avais lu ton message et n'y ai rien compris...

Je n'ai donc pas répondu.

[potili2]

essayons d'être plus clair...
J'ai un classeur A avec une macro A qui tourne en toile de fond et ne doit jamais s'arréter.(récupération d'un flux de données par DDE).
un classeur B doit prendre ses données dans A et effectuer des calculs avec une macro B dans le classeur B.
Le but est que si la macro B s'arrete (pour des raisons indépendantes de ma volonté), la macro A continue de tourner.
Dans mes tests, si je crée ce classeur B dans une nouvelle session d'excel, ça fonctionne bien.
Par contre, si, après fermeture, je relance mes classeurs, ils s'ouvrent d'eux même dans la même session d'excel (excel 2000)et du coup, tout plantage de B plante A.
mon problème est donc d'obliger, au lancement des deux classeurs, à l'ouverture de chacun dans une session différente d'excel.
Autrement dit, à chaque classeur, son excel personnel.
j'imagine que c'est une question de paramètre...
Jean Pierre

[LeForestier]

Bonjour,
Pour forcer l'ouverture d'une 2ém appli Excel tu peu employer cette solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
Dim RetVal
   RetVal = Shell("excel.exe", vbNormalFocus)
End Sub

Dans le 1er classeur et ensuite charger ton Fichier B dans la 2ém appli
A+

[potili2]

merci pour cette suggestion, ça devrait marcher, je teste ça tout de suite
Jean Pierre

[potili2]

après qques essais, le plus simple me parait ceci que j'indique, si ça peut servir à qqun
Jean Pierre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub ouvrebis()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.application")
xlApp.Visible = True
xlApp.Workbooks.Open Filename:="Classeur2_test.xls"
End Sub