Microsoft Outlook et Excel

Bonjour à tous
Grace à une macro de Benoit Marchand ,j'ai la liste de toutes les tâches
actives en mémoire
Mon but : Chercher a verifier si Microsoft Outlook est ouvert ou fermé.
Jusque là pas de bleme la macro fonctionne bien. mais .....
je me retrouve avec plusieurs fois Microsoft Outlook d'ouvert,parfois meme
sans etre visible
dans ma barre des taches comme s'il etait ouvert 2,3,4 fois mais sans etre
accessible
Je suppose que parfois je dois avoir des plantages (Excel ou Microsoft
Outlook)
qui font que des cessions reste ouvertes mais invisibles

1) Comment puis je nettoyer (Fermer) uniquement les taches non visible (et
uniquement Microsoft Outlook)
(et/ou)
2) Comment puis je savoir que la ou les taches que me donne cette macro de
Benoit
sont visibles dans ma barre des taches
Par avance merci de vos reponses ou pistes
Ritalou
Excel2000-Win2000

Bonjour,

Voici un petit code VBScript (à adapter) qui devrait t'aider et qui
t'évitera, je pense, de créer plusieurs instances de Outlook.

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


--
Patrick

"Ritalou" <Celtec@ags-mineraux.com> wrote in message
news:%23CLaCny9EHA.3376@TK2MSFTNGP12.phx.gbl...

Bonjour à tous
Grace à une macro de Benoit Marchand ,j'ai la liste de toutes les tâches
actives en mémoire
Mon but : Chercher a verifier si Microsoft Outlook est ouvert ou fermé.
Jusque là pas de bleme la macro fonctionne bien. mais .....
je me retrouve avec plusieurs fois Microsoft Outlook d'ouvert,parfois
meme

sans etre visible
dans ma barre des taches comme s'il etait ouvert 2,3,4 fois mais sans
etre

accessible
Je suppose que parfois je dois avoir des plantages (Excel ou Microsoft
Outlook)
qui font que des cessions reste ouvertes mais invisibles

1) Comment puis je nettoyer (Fermer) uniquement les taches non visible
(et

uniquement Microsoft Outlook)
(et/ou)
2) Comment puis je savoir que la ou les taches que me donne cette macro
de

Benoit
sont visibles dans ma barre des taches
Par avance merci de vos reponses ou pistes
Ritalou
Excel2000-Win2000

Bonjour,

Voici un petit code VBScript (à adapter) qui devrait t'aider et qui
t'évitera, je pense, de créer plusieurs instances de Outlook.

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing

Si je puis me permettre, il manque cette instruction au tout début de la
procédure :

strComputer = "."

--
Gaenonius

Bonjour,

Voici un petit code VBScript (à adapter) qui devrait t'aider et qui
t'évitera, je pense, de créer plusieurs instances de Outlook.

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing