FERMER FICHIER *.TTO depuis VBA

Bonjour,

Je souhaiterais fermer un fichier (qui n'est pas du pack Office) que j'ai ouvert et executé depuis une macro vba

Cible = Shell("C:\Program Files (x86)\IBM\Client Access\cwbtf.exe Z:\Bilan qualité\IAE\Transferts AS400 IAE\LigneProduit.tto", 1)
Application.SendKeys "{ENTER}", True

Après une temporisation de la macro je voudrais fermer ce fichier sans l'enregistrer.

Est-ce que quelqu'un connaître la fonction pour le faire ?

Merci d'avance à tous les contributeurs

Bonjour,

Il n'y a pas de fonction pour cela ???

Je suis surpris quand on peut l'ouvrir mais pas le fermer !

J'ai trouvé !

La fonction Call pour appeler la procédure qui ferme l'executable

 
' TON CODE SI LA REPONSE EST "OUI"
Call Fermer_Un_Programme("cwbtf.exe")
Else
    ' TON CODE SI LA REPONSE EST "NON"
End If

' Continuer après la pause
End Sub

 Sub Fermer_Un_Programme(Prog As String)
 Dim StrComputer As String, objWMIService As Object
 StrComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
 Set colProcessList = objWMIService.ExecQuery _
     ("Select * from Win32_Process Where Name = '" & Prog & "'")
 For Each objProcess In colProcessList
     objProcess.Terminate
 Next
 End Sub