Renommer la session Excel

Bonjour @tous

J'ai besoin de lancer plusieurs sessions différentes d'Excel.
Il y a quelques années j'ai fais ce code car en nommant chaque cession avec un nom différent on peut arrêter l'application Excel que l'on veut.
Malheureusement je ne retrouve pas ce code et je suis coincé.
Il ne s'agit pas de changer le caption d'Excel mais bien le nom de Excel.Application

Merci pour votre aide et votre temps

FaroukVazaha

Bonjour,

en jouant sur les instances créee à la volée, et mises sous variable ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub toto() Dim Excel1 As Excel.Application, Excel2 As Excel.Application   Set Excel1 = CreateObject("Excel.application") Excel1.Visible = True   Set Excel2 = CreateObject("Excel.application") Excel2.Visible = True   ' Traitement sur l'instance Excel Souhaitée Excel1.Workbooks.Add   ' Fermeture de l'instance Excel Souhaitée Excel2.Quit   End Sub

---

Bonjour @joe

Merci de ton temps, mais non ce n'est pas ce que je recherche car dans le gestionnaire l'affichage est toujours "microsoft excel".
La solution que j'avais trouvé me permettait de renommer la cession en : "Microsoft AppliTRi" par exemple, au lieu de "microsoft excel".

FaroukVazaha

Bonjour,

le besoin formulé est de piloter de façon cibler des instances Excel. Et notamment pouvoir les quitter

Ceci ne répond pas au besoin ?

Je ne vois pas l'intérêt supplémentaire de passer par un renommage d'application (qui potentiellement devrait faire appel à des API)

Bonjour et merci pour ton intérêt à ma question.

Dans un cadre professionnel, qui ne concerne que ma société et moi-même, j'ai besoin de renommer les sessions Excel.
Désolé si cette réponse te semblera abrupte mais ma question ne concerne pas le pourquoi mais le comment.
Je sais que la réponse existe puisque je l'avais trouvé il y 4 ou 5 ans, mais mes archives ont beaucoup souffert et je n'ai plus ce code.

Cordialement,
Farouk

Bonjour Farouk,
N'est ce pas la propriété Caption que vous cherchez ?

En reprenant l'exemple que vous a donné Joë, que je salue au passage

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub toto() Dim Excel1 As Excel.Application, Excel2 As Excel.Application Set Excel1 = CreateObject("Excel.application") With Excel1 .Visible = True: .Caption = "Zaza" End With Set Excel2 = CreateObject("Excel.application") Excel2.Visible = True ' Traitement sur l'instance Excel Souhaitée Excel1.Workbooks.Add ' Fermeture de l'instance Excel Souhaitée Excel2.Quit End Sub

---