chercher applications actives et les clore

[zeb33]

Bonjour,
bon désolé, j'ai déjà posté la même demande par erreur dans présentations de snouveaux membres et c'était pas le lieu.😕

Voilà mon pb .

Au début d'une macro, je désire connaître les applications actives (pdfcreator notamment) afin d'en clore est démarrer la suite de la macro.

Aujourd'hui la macro actuelle (réalisée gràce à vous tous) génére des fichiers pdf qui sont images d'une feuille de calcul.
Une fois ces fichiers générés ils sont envoyés à automatiquement à un destinataire dont je lis l'adresse dans une feuille excel.

Je génère environ 150 fichiers, et parfois pdfcreator se plante (malgré différentes tempo), ne se ferme pas correctement. La macro actuelle m'éjecte car il y un test.

Encore désolé.

Merci d'avance

 

[Staple1600]

Re : chercher applications actives et les clore

Re



Teste le fichier joint

1) Reduit suffisamment la fenêtre d'Excel
(la moitié de ton écran)

2) clique sur [Lancer Notepad]
(Le bloc-notes doit s'ouvrir)

3) Clique sur [Fermer Notepad]

Cela fonctionne sur mon PC (XL2000/W98SE)

Ps: Sous XP je sais pa si le chemin est identique
Vérifie que notepad.exe est bien dans C:\WINDOWS\
ou adapte si ce n'est pas le cas.

 

[zeb33]

Re : chercher applications actives et les clore

Re

Merci pour ton aide
Bon ca marche super pour notepad.
Je peux aussi ouvrir n'importe quelle application, calculatrice, PDFCreator etc..

Mais avec la fonction de fermeture je ne fait que reduire la fenetre, elle ne se ferme pas.

Avec le code suivant, trouvé sur le site de Microsoft :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner( _
strNameOfUser,strUserDomain)
Wscript.Echo "Process " & objProcess.Name _
& " is owned by " _
& strUserDomain & "\" & strNameOfUser & "."
Next

On est censé trouver les process actifs et les fermer. Bon moi j'y arrive pas.

Je ne sais donc toujours pas fermer les applications ouvertes (qui me gènent).

Merci

Denis