Discussion :

[DJBORIE]

Bonjour,

Je voudrais savoir s'il est possible de lancer deux fichiers avec un processus différent.
Par exemple si j'ai déjà un fichier Word ouvert, je voudrais que lorsque j'en lance un deuxième, celui-ci s'ouvre avec un processus différent.

En fait je cherche à modifier le code ci-dessous afin de récupérer un processus différent lorsque je lance un second fichier d'une même 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
Public Function ExecCmd(ByRef vsCmdLine As String, Optional ByRef vsParameters As String, Optional ByRef vsCurrentDirectory As String = vbNullString, Optional ByVal vnShowCmd As Long = SW_SHOW, Optional ByVal vnTimeOut As Long = 200) As Long
Dim lpShellExInfo As SHELLEXECUTEINFOA
    With lpShellExInfo
        .cbSize = Len(lpShellExInfo)
        .lpDirectory = vsCurrentDirectory
        .lpVerb = "open"
        .lpFile = vsCmdLine
        .lpParameters = vsParameters
        .nShow = vnShowCmd
        .fMask = SEE_MASK_DOENVSUBST Or SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_IDLIST
    End With
 
    If ShellExecuteEx(lpShellExInfo) Then
 
        GetExitCodeProcess lpShellExInfo.hProcess, ExecCmd
        CloseHandle lpShellExInfo.hProcess
    Else
        ExecCmd = vbError
    End If
End Function

Merci

[argyronet]

Bonjour,

Tu peux peut-être envisager de créer deux instances avec un CreateObject() de la classe Word.Application et utiliser la méthode Documents.Open.

Argy

[DJBORIE]

Merci pour la réponse.

Mais est-il possible de détecter la fermeture d'un fichier lorsqu'il est ouvert avec "Documents.Open" ?

[argyronet]

Mmmm, non pas avec cette méthode...
En fait, pour détecter le fermeture d'une appli, il faut utiliser une API (WaitForSingleObject) qui grâce au HWnd de ton instance pourra vérifier que l'application est bien fermée...

Tu as un exemple de code source ici proposé par Microsoft.
Ce sera à toi d'adapter car il ne faudra pas te tromper d'instance.

Tu peux obtenir le Hwnd d'une instance grâce à son PID qui est présent dans le Gestionaire de Tâches. J'ai écris un bout de code qui permet de l'obtenir ici (Réafficher une fenêtre lancée en mode cachée avec Shell) mais c'est pareil, il te faudra adapter...

Pour info, le ClassName Word est OpusApp.

Bon courage,

Argy