Liste fichiers ouverts multi sessions Excel

Bonjour,

Je cherche depuis un bon moment comment faire la liste des fichiers ouverts dans plusieurs sessions Excel (en simultanée) en vbs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim strComputer, objWMIService, colProcessList, objProcess, objExcel   '####### TEST DES DIFFERENTES SESSIONS D'EXCEL strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'excel.exe'")   For Each objProcess in colProcessList Set objExcel = GetObject(,"Excel.Application") msgbox objExcel.ActiveWorkbook.name   Next

---

Je vois bien le nombre de sessions (si 2 sessions actives me renvoie 2 msgbox avec chaque fois le nom du fichier actif de la 1ère session)
Mais je n'arrive pas à faire la liste des fichiers dans chaque session

Merci d'avance pour vos réponses

Cordialement