Discussion :

[adummm]

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 :

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

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

[pgz]

Bonsoir.

Tu peux essayer essayer

Code :

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

set myWbk = GetObject(sChemin)

Cordialement,

PGZ

[adummm]

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

[pgz]

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 :

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

Set xlAutreApp = myWbk.application

Cordialement,

PGZ

[LeForestier]

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 :

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

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