Bonjour,
Je cherche depuis un bon moment comment faire la liste des fichiers ouverts dans plusieurs sessions Excel (en simultanée) en vbs :
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)
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
Mais je n'arrive pas à faire la liste des fichiers dans chaque session
Merci d'avance pour vos réponses
Cordialement
Partager