Discussion :

[txufo]

Salut,
je développe en ce moment une macro VBA qui, via un .cmd, ouvre un nouveau classeur excel.
Le problème est que je n'arrive pas à récupérer la main sur le nouveau classeur. Plus généralement, je n'arrive pas à passer d'un classeur à l'autre, vu que les deux Excel sont "indépendants".
Par exemple, je n'arrive pas, à partir du code du classeur "père", à écrire qqch ds un onglet du fichier du classeur "fils".
Quelqu'un a t il déjà été confronté à ce problème ?
Merci bcp

[ouskel'n'or]

En effet, pour faire "ce que tu semble vouloir faire" tu dois créer une seconde instance d'excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim CL1 as Workbook
Dim FL1 as worksheet
Dim XlAppli
Dim XlCl
Dim Xlfl
Set CL1 = ThisWorkbook 'le classeur qui contient cette macro
Set FL1 = CL1.worksheets("Feuil1") 'la feuille
Chemin = "C:\LeRep\" 'Nom du second classeur
NomFich = "Le Classeur.xls" 'feuille du second classeur
    Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
    Set XlCl = XlAppli.Workbooks.Open(Chemin & NomFich) '< le classeur
    Set Xlfl = XlCl.Worksheets("feuil1") '< la feuille

Ensuite tu peux travailler tantôt sur Xlfl, tantôt sur FL1 du classeur contenant les macros.

[txufo]

merci bcp pr ton retour

le problème est que j'ouvre le classeur via un .cmd (Shell(path & "launch.cmd", 1)) ce qui fait que je ne sais pas comment faire pour nommer ou récupérer le nom de l'appli excel qui a été instanciée.
Et (bien sur) je suis obligé de lancer le fichier via ce .cmd, sinon ca serait trop facile.
sais tu comment faire ?

[ouskel'n'or]

Pour activer le second classeur de façon à écrire dedans c'est

Code :

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

1
2
    XlAppli.Visible = True
    XlCl.Activate

mais dans ce cas, la macro poursuit son exécution dans le classeur principal. Et si tu fermes le second Excel depuis son instance, tu ne reviendras pas automatiquement dans ton premier fichier... mais il existe une solution consistant à mettre un msgbox après les deux lignes ci-dessus.

Code :

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

Msgbox "Travail sur le classeur 2 terminé" 'ou ce que tu veux

Quand tu fermeras le second Excel, un clic sur ok te ramèneras sur le fichier principal et la macro pourra se poursuivre.

En fin de macro, n'oublie pas de supprimer les instances

Code :

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

1
2
3
Set XlAppli = Nothing
Set XlCl = Nthing
Set etc.

[txufo]

oui mais quand tu écris :

Code :

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

1
2
    Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
    Set XlCl = XlAppli.Workbooks.Open(Chemin & NomFich) '< le classeur

ca crée un nouveau classeur et ouvre dans celui ci ton fichier. mais c'est déjà fait par le .cmd. dc le pb est de récupérer le nom de l'appli pour pouvoir l'utiliser par la suite.

je sais pas si je suis bien clair

[ouskel'n'or]

mais c'est déjà fait par le .cmd. dc

PS donc...
Et bien sûr, tu supprimes ton cmd qui ouvre ton classeur, classeur avec lequel aucun lien n'est possible depuis ton code.
Teste mon code en mettant le cmd en remarque.

[txufo]

le pb c que si je ne lance pas le fichier avec le cmd, il ne marche pas (le .cmd met à jour des éléments qui, si ils ne sont pas updatés, ne permettent pas le fonctionnement du fichier et notamment des macros qui sont dedans).
j'en conclus que mon cas est désespéré ?

[tirex28]

Bonsoir,

le .cmd met à jour des éléments qui, si ils ne sont pas updatés, ne permettent pas le fonctionnement du fichier et notamment des macros qui sont dedans

Simple curiosité, que peut faire un .cmd à un fichier excel qu'Excel ne pourrait pas faire?

Si tu nous en dis plus on trouvera peut etre quelque chose.

Cordialement,

Tirex28/