création d'une fonction getobject améliorée

patricktoulon · 11 Juillet 2018

Bonjour a tous pour une fois c'est moi qui suis collé

alors voila je voudrais créer une fonction getobject
cette fonction existe déjà me direz vous
oui pour un object application elle retourne la première instance de celle ci les autres walouh!!!!
je me suis donc mis dans la tète d'en faire une qui me ramènerait un tableau d'object "application "
on a malgré tout diverses possibilités ou façons de lister les fenêtres ouvertes ou instance d’application entre autre les api Windows voir aussi WMI
ce pendant pour ramener ces éléments a des object application et pouvoir donc les utiliser comme tel c'est une autre affaire
comment pourrais-je faire par exemple avec cette petite sub WMI?

Code:

Sub nb_instances()
Dim strComputer As String, WMIService As Object, TaBlExcel As Object
strComputer = "."
Set WMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set TaBlExcel = WMIService.execquery("select * from win32_process where name='EXCEL.EXE'")
Debug.Print "Nombre d'instances : " & TaBlExcel.Count
Set WMIService = Nothing
Set TaBlExcel = Nothing
End Sub

je voudrais par exemple prendre le classeur(1) de TaBlExcel(1)
MsgBox TaBlExcel(1).Workbooks(1).Name
malheureusement TaBlExcel n'est pas un tableau d'object "application"
si vous avez des idées ou des pistes je suis preneur

merci pour les éventuels retours

patricktoulon · 13 Juillet 2018

vraiment personne n'est intéressé par ce petit défi?

Dranreb · 13 Juillet 2018

Bonjour.
Connais pas du tout ce truc…
Tiens, un For Each X In TaBlExcel ça plante pas !
Un MsgBox TypeName(X) dit SWbemObjectEx

patricktoulon · 13 Juillet 2018

re
bonsoir Dranreb
a oui je n'ai pas pensé au properties
ça me ramène bien des choses mais je doute que je puisse faire quelque chose avec dans le sens ou je veux aller
qui est de variabiliser les instances excel en tant qu'application

Code:

Sub nb_instances()

    Dim strComputer As String, objWMIService As Object, TaBlExcel As Object
    ReDim app(1 To 2) As Application
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set TaBlExcel = objWMIService.ExecQuery("select * from win32_process where name='EXCEL.EXE'")
    MsgBox "Nombre d'instances : " & TaBlExcel.Count

    For Each instance In TaBlExcel
        For Each propertie In instance.Properties_
            Debug.Print propertie.Name & "--->>" & propertie.Value
        Next
        Debug.Print "--------------------------------" & vbCrLf
    Next
    Set objWMIService = Nothing
    Set TaBlExcel = Nothing

End Sub

j'ai vraiment pas d’idées même avec les api j'arrive capter les handle mais quoi faire après pour initier des variable object."application"

Dranreb · 13 Juillet 2018

Et du coté des fenêtres Windows on ne peut rien faire ?
Mais d'abord pourquoi n'ouvrez vous pas tous les classeurs dans la même fenêtre d'application ?

Staple1600 · 14 Juillet 2018

Bonjour le fil, le forum, patricktoulon, Dranreb

Issu de mes archives API (et au cas où cela pourrait servir ici)

Histoire de me rafraîchir la mémoire, j'ai retester aujourd’hui''hui ce vieux code

Question: Pourquoi il me trouve deux instances ?
(testé sur Excel 2013, Excel ouvert avec un classeur vide par défaut (non enregistré))
Résultat de la macro sur mon PC
Instance #1: Handle: 263206
Classeur1
Feuil1
Instance #2: Handle: 328160

patricktoulon · 14 Juillet 2018

RE
Bonjour STAPLE 1600
ma fois que dire sinon respect monsieur
il fallait aller le chercher ce clisd ""{00020400-0000-0000-C000-000000000046}"
bravo c'est nikel
je vais pouvoir adapter et en faire une fonction getAllinstancesobject
et non mes classeur je les ouvre selon mes besoins dans la journée j'en ai 11 certain communiquent entre eux mais je les ouvres pas tous forcement
il me faut donc tester leur présence avant de les laisser communiquer entre eux
les allumer tous ensemble est très lourd
se sont des bases très lourde tellement lourdes que les bases de données sont sur plusieurs feuilles
un grand merci a toi il a le mérite d’être limpide

Staple1600 · 14 Juillet 2018

Re

@patricktoulon
Tout le mérite revient à l'auteur du code (voir commentaire dans la PJ)
Moi je n'ai fait qu'ouvrir le tiroir de mes archives

PS: Tu as testé sur un classeur vierge (comme indiqué dans mon précédent message)

Tu trouves aussi deux instances ??

[PS:]

je vais pouvoir adapter et en faire une fonction getAllinstancesobject

Tu pourras la publier ici, stp?
Que je la range dans un autre tiroir de mes archives

Dranreb · 14 Juillet 2018

@patricktoulon J'ai l'impression que vous avez mal compris ma question.
Quand vous avez besoin de les ouvrir, pourquoi ne les ouvrez vous pas toujours dans une seule même application Excel pour toute la session de votre ordinateur ou au moins tant qu'au moins 1 est ouvert ? Auriez vous mal paramétré une option Windows ou de l'explorateur de fichiers je ne sais plus, ouvrir dans une seule fenêtre, tout ça ?
Parce qu'alors c'est facile: les classeur ouverts c'est tout simplement la collection Workbooks de l'application !
C'est rare, chez moi qu'un classeur s'ouvre dans une autre application que celle qui traite ceux déjà ouverts. Mais ça peut arriver: si je demande à ouvrir avec Excel un classeur téléchargé alors qu'un module attend une réponse à un MsgBox par exemple.

Staple1600 · 14 Juillet 2018

Re, Re-Bonjour Dranreb

@Dranreb
Tu peux me dire, stp, si chez toi aussi, la macro trouve deux instances ?
Merci
(cf message#6)

Dranreb · 14 Juillet 2018

Elle m'en trouve 6, avec des Handle différents, 5 tous suivi d'affichage de Classeur1 qui est le nom du classeur non enregistré où j'ai installé la macro pour le test, suivi du nom Feuil1, puis de Couleurs.xlsm avec ses ÉtudeX et les 2 feuilles masquée, le denier affiche juste le Handle.

Staple1600 · 14 Juillet 2018

Re

@Dranreb
Mais quand tu testes, juste quand tu viens d'ouvrir Excel ?
(Normalement tu n'as que Classeur1 d'ouvert)
NB: Chez moi par défaut, mes classeurs ne contiennent qu'une feuille)

Normalement la macro ne devrait trouver qu'une seule instance, non ?

Or elle en trouve 2 et je ne comprends pas pourquoi ?

Dranreb · 14 Juillet 2018

Ah, mais moi je n'en sais rien du tout, tu veux que je te dise ce que donne la macro, alors, Excel étant souvent ouvert toute la journée chez moi, je te le dis, c'est tout.

Staple1600 · 14 Juillet 2018

Re

@Dranreb
Je voulais juste savoir si avec un seul classeur (non enregistré) ouvert, la macro renvoie aussi 2 instances chez les autres XLDnautes.
C'est pour cela que je demandais à patricktoulon et également à toi de faire ce test (avec un seul classeur)

Si un XLDnaute qui passerait par ici peut faire ce simple test, merci à lui/elle

Dranreb · 14 Juillet 2018

Ça avec seulement le nouveau classeur au lancement Excel :

création d'une fonction getobject améliorée

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires