Fermer word ouvert avec IE

Bonjour

je vous expose mon probleme.

J ai un formulaire word qui s'ouvre avec IE et je souhaiterai fermer cette fenetre quand l'utilisateur clique sur "ok" ou "fermer"

J'ai essayé plusieur methodes comme :

Public Function ForceClosingWindow(ByVal hWindow As Long) As Long
   
    Dim ProcessId As Long
    Dim hProcess As Long
   
    GetWindowThreadProcessId hWindow, ProcessId
    hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId)
    ForceClosingWindow = TerminateProcess(hProcess, 0)
   
End Function

ou ca

Function closeit(mycaption As String)
    Dim WinWnd As Long, RetVal As Long, lpClassName As String
    'Search the window
    WinWnd = FindWindow(vbNullString, mycaption)
    If WinWnd = 0 Then
        MsgBox "Couldn't find the window ..."
       
    End If
    ShowWindow WinWnd, SW_SHOWNORMAL
    'Create a buffer
    lpClassName = Space(256)
    'retrieve the class name
    RetVal = GetClassName(WinWnd, lpClassName, 256)   'no necessary
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Function

Mon process IE est bien Killé mais il reste toujour un process WINWORD qui ne veut pas partir

Pouvez vous m'aider...

Salut,

Il faut que tu récupère la liste de tout tes processus. en .net tu as MonProcess.GetProcesses en vb je sais pas.
Une fois que tu as la liste, tu parcours ton tableau si le process en cours = Iexplore.exe alors kill sinon si le process en cours = WinWOrd.exe alors kill

Attention. La destruction de processus varie suivant les versions de windows et du compte utilisateur que tu as. Cela ne marchera pas forcément. Il faut passer les paramètres administrateurs. Pour assurer le coup tu peux à partir de windows 2003 Server faire démarrer cmd
taskkill /? et là tu sauras tout.
Pour les versions ultérieurs, je crois que c'est tkill /?

Bonne prog @+

Mais si je kill winword et que l'utilisateur à d'autre fichiers word ouverts ??

Je ne veux pas que ca kill tout les processus word.

Oui alors effectivement ça kill tout. Autre possibilité, vérifie pour chaque processus le MainWindowsTitle. Etant donné que je pense tu connais le nom de fichier utilisé par l'utilisateur tu peux killer celui qui correspond.

Exemple : dim NomFichier as string = "monfichierdoc.doc"

Si lors du parcours de ton tableau de process tu trouve WinWORD.exe et que le mainwindowstitle = Nomfichier alors tu kill.

C'est pas plus compliqué.Il faut juste que tu connaisses le nom du fichier et que tu vérifies. 
@+

je ne trouve pas la class Process, y a t'il une librarie "user32" pour la récuperer ??

du genre DeclareFunction getProcess Lib"user32"(blabla AsLong)AsLong
 

Salut,
moi je déclare une variable de type Word.Application (en ayant ajouté la référence word à mon projet).

dim wd_Feuille_Word As Word.Application

Set wd_Feuille_Word = CreateObject("Word.Application")
wd_Feuille_Word.Documents.Open "chemin du document\Document1.doc"

' puis je fais mon traitement sur le document
et je ferme

wd_Feuille_Word.ActiveDocument.Close False
wd_Feuille_Word.Quit

' ceci quitte le document et le processus lié à ce document mais pas les autres.

Cette manipulation fonctionne aussi bien en VB6 qu'en .Net

Si ça peux t'aider je suis content pour toi !

pseudoOM

Le partage est une force alors n'hésitez pas à cliquer sur réponse acceptée pour partager les solutions trouvées !