restaurer et mettre au premier plan une application

[Chris57]

Bonjour à tous

je cherche une commande pour restaurer et mettre au premier plan une application se trouvant dans la barre des tâches.

C'est possible ?

 

[tototiti2008]

Re : restaurer et mettre au premier plan une application

Bonjour Chris57,

et cette application, tu connais son nom ?

c'est peut-être possible en utilisant un

GetObject

 

[Chris57]

Re : restaurer et mettre au premier plan une application

Bonjour,

l'application se nomme Stealthnet

 

[Staple1600]

Re : restaurer et mettre au premier plan une application

Re, bonsoir tototiti2008



Pourquoi ouvrir un second post 😕

Voici le fil initial
https://www.excel-downloads.com/threads/fermer-un-logiciel-quelconque.129634/

 

[Chris57]

Re : restaurer et mettre au premier plan une application

Parce que d'après mes recherches il n'est pas possible de refermer un logiciel x à partir de Excel.

Par contre si je peux le mettre au premier plan, avec une manipulation de touches je devrais pouvoir y arriver.

 

[Staple1600]

Re : restaurer et mettre au premier plan une application

Re


Excel peut interpréter , donc exécuter des scripts vbscript ...

Un petit exemple vbs dans VBA

Sub MixVBSVBA() 'source msdn
Dim WshShell, BtnCode
Set WshShell = CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32)
Select Case BtnCode
   Case 6: WshShell.Popup "Glad to hear you feel alright.": MsgBox "Glad to hear you feel alright.", vbYesNoCancel, "MsgBox Excel"
   Case 7:  MsgBox "Hope you're feeling better soon.", vbCritical, "MSGBOX EXCEL": WshShell.Popup "Hope you're feeling better soon."
   Case -1: WshShell.Popup "Is there anybody out there?"
End Select
End Sub

Cherche encore 😀

Le SendKeys peut être une solution (mais qui réserve parfois des surprise )

 

[Chris57]

Re : restaurer et mettre au premier plan une application

il faudrai que je demande sur un forum de VBscript..

 

[Staple1600]

Re : restaurer et mettre au premier plan une application

Re



Essayes de voir de ce côté

Sub processus()
Dim i As Long
Dim objWMIService: Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Dim colProcesses: Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
Dim objProcess
i = 1
For Each objProcess In colProcesses
   'Debug.Print objProcess.Name
   Cells(i, 1) = objProcess.Name
   i = i + 1
Next
End Sub

 

[Chris57]

Re : restaurer et mettre au premier plan une application

c'est marrant, j'avais trouvé le même script en Vbs, mais qui ouvrait un popup par processus ! Comme quoi excel est génial 😉

je vais bosser là dessus, même si je ne sais pas encore par ou commencer


merci !!

 

[MJ13]

Re : restaurer et mettre au premier plan une application

Bonjour à tous

Sinon Super Macro, il le fait sans problème.

 

[MJ13]

Re : restaurer et mettre au premier plan une application

Re

Peut -être avec Power Menu:

 

[Chris57]

Re : restaurer et mettre au premier plan une application

J'ai testé powermenu mais je vois pas comment il peut règler mon pb...

Bonjour à tous

Sinon Super Macro, il le fait sans problème.

ah bon ? j'ai pas trouvé sur le forum. Tu as la méthode ?

 

[Chris57]

Re : restaurer et mettre au premier plan une application

retour au up...

 

[Chris57]

Re : restaurer et mettre au premier plan une application

apparemment ce ne serait pas possible avec Excel ????

 

[Staple1600]

Re : restaurer et mettre au premier plan une application

Bonsoir


Pourquoi veux-tu absolument utiliser Excel ?


Vbscript ne te suffit pas 😕