Fermeture application (Outlook express)

  • Initiateur de la discussion Initiateur de la discussion Maxime
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bonjour Maxime

tu peux tester cette procedure (à partir de Windows2000)


Sub fermerUneApplication()
Dim objProcess As Object
Dim colProcessList As Object
Dim objWMIService As Object
Dim strComputer As String

strComputer = '.'
Set objWMIService = GetObject('winmgmts:' _
& '{impersonationLevel=impersonate}!\\\\\\\\\\\\\\\\' & strComputer & '\\\\\\\\root\\\\\\\\cimv2')
Set colProcessList = objWMIService.ExecQuery _
('Select * from Win32_Process Where Name = 'MSIMN.EXE'')
For Each objProcess In colProcessList

objProcess.Terminate

Next
End Sub



bon apres midi
MichelXld

Message édité par: michelxld, à: 27/06/2006 16:00
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
183
Réponses
9
Affichages
331
Réponses
12
Affichages
549
Retour