accéder à un Workbooks qui n'est pas dans l'application

[philoo]

Bonjour à tous, et bonne rentrée pour ceux qui reviennent de vacances...

Petite devinette de la rentrée, donc !

J'ai besoin de faire référence à un classeur dans une macro. Jusque là pas de problèmes majeurs :
Workbooks("monClasseur") fait très bien l'affaire...

Mais s'il y a deux instances d'excel ouvertes, je n'ai plus acces aux classeurs ouverts dans l'autre excel !! Et vu que c'est un autre programme qui ouvre cette autre instance, je suis bien embété (vu que c'es pas moi qui l'ai écrit, l'autre programme...)

Donc ma devinette se résume en : "Comment peut-on accéder à un classeur ouvert dans une autre instance d'excel à partir de VB ?"
Celui qui devinera gagnera toute ma gratitude....


Merci d'avance pour ceux qui auront la patience de me répondre ....

A+
Philoo


P.S. : Au fait j'ai oublié : je suis sous Excel2000 et Win2000

 

[ZON]

Bonjour à tous,

Salut Philoo, un procédure que tu devras adapter mais qui devrait te mettre sur la piste.

Sub Instances()

Dim Appli As Excel.Application, App2 As Excel.Application

Set Appli = Application 'insatnce active
Set App2 = GetObject(, "Excel.application")
If App2 Is Nothing Then
MsgBox "Pas d'autre instance Excel"
Else: App2.Workbooks.Open "C:\tonfichier.xls"
End If

End sub

A+++

 

[philoo]

Salut ZON !
Merci de ta réponse.
J'ai essayé, mais ça ne semble pas fonctionner : excel met l'application active dans les deux variables applications, et ne trouve pas l'autre instance...

 

[ZON]

Re,

Est ce que le msgbox apparait ?

 

[philoo]

non, non App2 est bien défini, et c'est bien l'application active, la preuve avec cette petite modif de ton code :
Sub Instances()

Dim Appli As Excel.Application, App2 As Excel.Application

Set Appli = Application 'insatnce active
Set App2 = GetObject(, "Excel.application")
If App2 Is Nothing Then
MsgBox "Pas d'autre instance Excel"
Else
For Each W In App2.Workbooks
MsgBox (W.Name)
Next
End If

End Sub

Cette macro me renvoie bien la liste des classeurs ouverts dans l'appli active et non dans l'autre !!! J'y comprend rien...

 

[ZON]

Re,

je viens de tester ça fonctionne chez moi, j'ai bien les noms de l'autre instance que W soit déclaré ou pas en workbook. As tu testé l'autre boucle

for each W in appli.workbooks

 

[philoo]

C vachement bizarre : chez moi les deux boucles donnent la même chose : les classeurs de l'appli active...

 

[ZON]

Re,

Bizarre vous avez dit bizarre, oui mais pour tes tests n'aurais tu classeur1, classeur2... dans les 2 insatnces par hasard ?

Essaies d'ouvrir un fichier dans appli2, et ragardes dans les fenetres où se situe ton fichier ouvert la 2 eme normalement.

PS pour éviter d'emcombrer le forum on peut continuer sur le chat ou par mail. Nous apporterons la solution le cas échéant.

 

[Jon]

sympa le fil


peut-être qu'il faudrait comparer les deux variables appli pour être sûr que le Get.Application n'a pas ramené l'instance en cours.

bye