FERMETURE NAVIGATEUR code VBA svp

[zebanx]

Bonjour,

Pourriez-vous m'indiquer une ligne de code permettant de fermer toutes les fenêtres internet ouvertes (ie : firefox) s'il vous plait?

Vous en remerciant, bonne journée,
cordialement

 

[Staple1600]

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)

 

[MJ13]

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 🙂):

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

 

[zebanx]

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

 

[zebanx]

Re : FERMETURE NAVIGATEUR code VBA svp

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

 

[Staple1600]

Re : FERMETURE NAVIGATEUR code VBA svp

Re

Quand je dis

voir de ce côte

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

 

[zebanx]

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

 

[MJ13]

Re : FERMETURE NAVIGATEUR code VBA svp

Re

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

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

 

[Staple1600]

Re : FERMETURE NAVIGATEUR code VBA svp

Re

Essaies ainsi

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 ?

 

[zebanx]

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

 

[zebanx]

Re : FERMETURE NAVIGATEUR code VBA svp

ah je suis aussi sur seven, aie

 

[zebanx]

Re : FERMETURE NAVIGATEUR code VBA svp

et pourtant en CMD ça passe bien !

 

[MJ13]

Re : FERMETURE NAVIGATEUR code VBA svp

Re

Voir Post #8.

 

[Staple1600]

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

 

[MJ13]

Re : FERMETURE NAVIGATEUR code VBA svp

Re


Alors sinon, testé sur Win 8 et IE.

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