Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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