Discussion :

[cpf2006]

Bonjour
je voudrais pouvoir tuer un processus word ouvert avec vb6 sans fermer les autres documents word déjà ouverts

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
objWord.Visible = True    
ouvreWord = True
...

Mais je n'y parviens pas

Auriez-vous des idées ?
merci d'avance
Cpf

[l_autodidacte]

Peut-être ce code en VBScript pour un exemple simple avec Notepad.exe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set WS = CreateObject("WScript.Shell")
 Set Ex = WS.Exec("Notepad.exe")
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process",,48) 
  For Each objItem in colItems 
    If objItem.ProcessId =Ex.ProcessId Then 
        Wscript.Echo "ProcessId: " & objItem.ProcessId
        objItem.Terminate
        Exit For 
    End If
 Next

Reste à l'adapter selon le besoin.
Pour le tester, il suffit de lancer une ou plusieurs instances de Notepad puis exécuter le code pour voir le PID de l'instance lancée par celui-ci. Après clic sur le bouton OK(OUI), la seule instance fermée est celle lancée par le code.

[cpf2006]

Merci
Je l'ai testé et ça me semble une bonne solution ... à adapter car tout ne fonctionne pas correctement comme le "terminate"
Je cherche donc la liste des propriétés et fonctions qui pourraient me convenir
Merci encore
Cpf

[cpf2006]

La routine s'arrête sur
"objItem.Terminate"
en donnant une erreur :
"run-time error '-2147217406(80041002'):
Non trouvé "

Merci d'avance
Cpf

[l_autodidacte]

La routine s'arrête sur "objItem.Terminate"

Dans le cas de Winword.exe, il faudrait mettre le chemin complet de l'application dans l'instruction Set Ex = WS.Exec("Notepad.exe").
pour avoir quelque chose comme Set Ex = WS.Exec("C:\Program Files\Microsoft Office\OFFICE11\Winword.exe").
car ce dossier n'est pas répertorié dans la variable d'environnement "PATH".
Or si on regarde dans les propriétés du raccourci Winword.exe dans le menu programme, le champ "Démarrer dans ..." est vide et le champ Cible ne contient pas de chemin vers l'application.

[cpf2006]

Merci pour la réponse
En somme cette routine fontionne. Le problème reste que je dois intégrer ce principe dans le code existant qui lui génère un objet du type "word.application" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")

... et je ne vois pas comment intégrer les 2
donc avec le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set WS = CreateObject("WScript.Shell")
Set Ex = WS.Exec("winword.exe")

y aurait-il dans l'objet word.application une propriété qui donne l'id du process ?

Merci d'avance

[l_autodidacte]

Il y a peut-être cette possibilité tout en travaillant avec l'objet WD qui donne accès aux différentes propriétés de l'application :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim PID& ' ProcessId
Dim WD As New Word.Application
 
Private Sub Command1_Click()
    PID = Shell("C:\Program Files\Microsoft Office\OFFICE11\Winword.exe") ' Lancement de l'application
    MsgBox PID ' Affiche le PID
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process", , 48)
     For Each objItem In colItems
       If objItem.ProcessId = PID Then
           MsgBox "ProcessId: " & objItem.ProcessId  ' juste pour vérifier qu'on a le même PID
           objItem.Terminate                                    'Arrêt de l'application appelée par son PID
           Exit For
       End If
    Next
End Sub