'Liste des processus actifs Sub ListeProcesses() Dim LesProcess, UnProcess, i Set LesProcess = GetObject("winmgmts:").ExecQuery("select * from Win32_Process ") For Each UnProcess In LesProcess i = i + 1 Cells(i, "a").Value = UnProcess.Caption Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionCette solution permet également de gérer ce problème en java par exemple où le nom du processus est toujours java.exe quel que soit le programme java lancé. Mais c'est un autre sujet