Discussion :

[faroukvazaha]

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

[joe.levrai]

Bonjour,

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

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
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

[faroukvazaha]

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

[joe.levrai]

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)

[faroukvazaha]

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

[Philippe Tulliez]

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 :

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

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