Sub afficheProcess()
Dim objProcess, process, strNameOfUser
ComputerName = "."
Set objProcess = GetObject("winmgmts:{impersonationLevel=impersonate}\\" _
& ComputerName & "\root\cimv2").ExecQuery("Select * From Win32_Process")
For Each process In objProcess
test = process.Name
If test = "OUTLOOK.EXE" Then MsgBox ("mettre à jour la base")
Next
Set objProcess = Nothing
End Sub
[/CODE=vb]
Dans tous les cas je te conseille de te tourner vers une application VB type service.
Sauf meilleure idée, d'un excelnaute
A+