1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Fermer un processus WINWORD.EXE qui traîne [Résolu]

Signaler
Messages postés
49
Date d'inscription
lundi 23 janvier 2012
Statut
Membre
Dernière intervention
18 octobre 2020
 -
Messages postés
14908
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
24 octobre 2020
 -
Bonjour,

Il arrive que mon Word plante lors de l'exécution de macros et le processus reste actif. Quand je réouvre le fichier Word, il demande alors de s'ouvrir "en lecture seulement".

Dans la macro "autoexec", je suis capable de détecter que le fichier est en .ReadOnly. Si c'est le cas, comment tuer le processus ouvert du même non afin de poursuivre l'ouverture du fichier en cours (non fermé) ?

Je suis tanné d'ouvrir "Système explorer" à chaque fois et tuer le processus manuellement. J'aimerais automatiser la tâche dans "autoexec" de Word... Il faut savoir que deux processus WINWORD.EXE sont alors ouverts à ce stade, et il faut tuer le bon (le premier des deux je suppose).

Merci à l'avance de vos lumières !
iBenny
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
14908
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
24 octobre 2020
 446
Bonjour

quand je lis
j'aimerais automatiser la tâche dans "autoexec" de Word
, je déduis que tu veux faire ça en macro, donc en VBA, donc pas en VB6 (forum que tu as choisi).

Peux tu confirmer, je déplacerai (ou un autre contrib/modo) et supprimerai les interventions devenues inutiles.
Réponse 2 / 2
Messages postés
49
Date d'inscription
lundi 23 janvier 2012
Statut
Membre
Dernière intervention
18 octobre 2020
Non ! en VB6... et j'ai trouvé ma solution ! 

Dim Processus

If ActiveDocument.ReadOnly Then
    For Each Processus In GetObject("winmgmts:").InstancesOf("Win32_process")
        If Processus.Name = "WINWORD.EXE" Then
            Processus.terminate
    End If
    Next
End If


Merci infiniment de votre passage
iBenny
Signaler
Messages postés
14908
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
24 octobre 2020
 446
Tant mieux, bonne journée
Répondre Posez votre question