FERMETURE NAVIGATEUR code VBA svp

Staple1600

XLDnaute Barbatruc

• 15 Mars 2014

• #2

Re : FERMETURE NAVIGATEUR code VBA svp

Re___________________________EDITION:Bonjour MJ13

zebanx
Voir du côté de Ce lien n'existe plus
(cf l'exemple avec notepad.exe)

 

Dernière édition: 15 Mars 2014

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Mars 2014

• #3

Re : FERMETURE NAVIGATEUR code VBA svp

Bonjour Zebanx, Jean-Marie

Tu peux tester ce code en remplaçant Workbooks(ThisWorkbook.Name).Sheets("Param").Cells(2, 4).Value par le nom de ton exe (c'est issu de l'appli My MP3 sous ma signature 🙂):

Code:

Sub killTask()
     killString = "taskkill /F /IM " & Workbooks(ThisWorkbook.Name).Sheets("Param").Cells(2, 4).Value
    Call Shell(killString, vbHide)
End Sub

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 15 Mars 2014

• #4

Re : FERMETURE NAVIGATEUR code VBA svp

Merci pour votre réponse et votre célérité

Les résultats

* Sub STAPLE1600() -> ça bute sur le passage en gras

Set objLoc = CreateObject("wbemscripting.swbemlocator")
objLoc.Security_.privileges.addasstring "sedebugprivilege", True
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'C:\Program Files (x86)\Mozilla Firefox\firefox.exe'")
For Each objProcess In colProcessList
objProcess.Terminate()
Next

* Sub j13()
killString = "taskkill C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
Call shell(killString, vbHide)
End Sub

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 15 Mars 2014

• #5

Re : FERMETURE NAVIGATEUR code VBA svp

c'est ok pour le deuxième code, ça ferme bien firefox !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2014

• #6

Re : FERMETURE NAVIGATEUR code VBA svp

Re

Quand je dis

voir de ce côte

Cliquez pour agrandir...

, ce n'est une piste à suivre 😉
et la toile est vaste, alors il faut chercher un peu ...
wmi - Killing processes in Vbscript - Stack Overflow
et bien choisir ses mots-clés 😉

L'important ici était WMI

Désolé.
j'aurai du être plus précis et... toi ... plus curieux 😉 en approfondissant tes recherches sur WMI 😉

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 15 Mars 2014

• #7

Re : FERMETURE NAVIGATEUR code VBA svp

Bonjour Staple1600,

Je vais regarder cela mais pas c'est un niveau largement au-dessus du mien

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Process", , 48)

et je ne saurai pas aller chercher le champ de firefox sans me tromper, mais bon je vais essayer!

J'ai mal enregistré par contre l'autre code et ça bug maintenant, c'est pas top )-.

La syntaxe me paraissait correcte mais bon je n'arrive plus à voir pourquoi la macro ne se lance plus
Sub j13()
killString = "taskkill /F /IM" & "firefox.exe"
Call shell(killString, vbHide)
End Sub

En cmd ça marche bien pourtant avec ce code là.
Si quelqu'un peut corriger ce code, ce serait extra. Merci par avance et bonne journée

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Mars 2014

• #8

Re : FERMETURE NAVIGATEUR code VBA svp

Re

Il ne manque pas un espace après IM dans:

Code:

killString = "taskkill /F /IM" & "firefox.exe"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2014

• #9

Re : FERMETURE NAVIGATEUR code VBA svp

Re

Essaies ainsi

Code:

Sub j13()
Dim  killString$
killString = "taskkill /F / IM" & "firefox.exe"
shell killString, vbHide
End Sub

EDITION: MJ13 ( Re, 😉)
Sauf erreur de ma part, aucun des codes avec taskkill ne fonctionne sur mon Windows seven ?

 

Dernière édition: 15 Mars 2014

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 15 Mars 2014

• #10

Re : FERMETURE NAVIGATEUR code VBA svp

@staples1600
quelle rapidité!

Le code bute sur shell(killString, vbHide) >erreur de syntaxe

Sub staple()
Dim killString$
killString = "taskkill /F /IM" & "firefox.exe"
shell(killString, vbHide)
End Sub

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 15 Mars 2014

• #11

Re : FERMETURE NAVIGATEUR code VBA svp

ah je suis aussi sur seven, aie

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 15 Mars 2014

• #12

Re : FERMETURE NAVIGATEUR code VBA svp

et pourtant en CMD ça passe bien !

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Mars 2014

• #13

Re : FERMETURE NAVIGATEUR code VBA svp

Re

Voir Post #8.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2014

• #14

Re : FERMETURE NAVIGATEUR code VBA svp

Re

zebanx
J'ai édité mon précédent message (suppression des parenthèses)

Précision: J'ai testé avec notepad.exe (donc Seven+Office 13) et bien le processus n'est pas tué avec taskkill.
(et l'espace est bien là lui aussi 😉 )
cf message #9

 

Dernière édition: 15 Mars 2014

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Mars 2014

• #15

Re : FERMETURE NAVIGATEUR code VBA svp

Re


Alors sinon, testé sur Win 8 et IE.

Code:

Sub killTask2()
     killString = "taskkill /F /IM " & "iexplore.exe "
    Call Shell(killString, vbHide)
End Sub

 

Vote positif 0 Vote négatif