Excel Application - conserver le lien

Bonjour,

Avec la méthode "New Excel.Application", j'ai un moyen simple d'ouvrir un fichier excel dans une instance différente et d'executer des macros dans ce fichier.

Ma question :
Comment plus tard dans la journée je peux reprendre la main depuis le excel principal sur ce fichier qui est resté ouvert et relancer d'autres macros ?

Merci d'avance pour votre aide,

Ci dessous le code pour lancer la nouvelle instance :

Code:

---

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

Sub openFileAlex()   Dim dash As Worksheet Set dash = ActiveWorkbook.Worksheets("DashBoard")   Dim appTRE As Excel.Application Dim wbTRE As Excel.Workbook Dim TRE As String Dim lecteur As String   lecteur = "U:\"   TRE = "FichierAlex.xls" Set appTRE = New Excel.Application appTRE.Visible = True Set wbTRE = appTRE.Workbooks.Open(lecteur & TRE)   End Sub   Cordialement, Alexandre

---

Bonsoir.

Tu peux essayer essayer

Code:

---

set myWbk = GetObject(sChemin)

---

Cordialement,

PGZ

Bonjour,

Merci pour votre aide,
Le pb est que le fichier est deja ouvert dans une autre application, et que je ne trouve pas de solution pour definir une instance excel deja ouverte avec Excel.application.

Avec cette fonction, je ne trouve que des solutions pour ouvrir une nouvelle application, mais pas pour travailler sur une existante.

Par ailleurs, que veux tu dire par "sChemin" ?

Merci d'avance,

Alexandre

Citation:

---

Envoyé par adummm

Le pb est que le fichier est deja ouvert dans une autre application, et que je ne trouve pas de solution pour definir une instance excel deja ouverte avec Excel.application.

---

C'est bien une solution à ce pb que je te propose.
sChemin est le chemin complet du classeur déjà ouvert dans l'autre application. Comme "C:\Dossier Machin\Mon classeur.xls"
Tu obtiens directement une instance du classeur. Si tu veux ensuite une instance de l'autre application

Code:

---

Set xlAutreApp = myWbk.application

---

Cordialement,

PGZ

Bonjour,
Tu doit mettre toute tes variables dans un module general (BAS)
et pour travailler sur la 2ièm application à partir de la première, que ce soit 2 minutes après ou 10 heures...

Code:

---

1 2 3

wbTRE .... ce que tu veux faire 'exemple pour activer une feuille wbTRE .Sheets("Feuil1").select

---

A+
Edit, rectification, Je m'était tromper sur la variable WorkBook