Discussion :

[patricktoulon]

Bonjour a tous
je me demande si il n'y a pas un moyen de simplifier ce code
j'entends par la supprimer le besoins des 2 boucles imbriquées

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
Sub WMI()
    Dim oWMISrvEx As Object    'SWbemServicesEx
    Dim oWMIObjSet As Object    'SWbemServicesObjectSet
    Dim oWMIObjEx As Object    'SWbemObjectEx
    Dim oWMIProp As Object    'SWbemProperty
    Dim sWQL As String    'WQL Statement
    Dim n As Long             'Generic Counter
    sWQL = "Select * From Win32_VideoController" ' classe utilisée
    Set oWMISrvEx = GetObject("winmgmts:root/CIMV2")
    Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL)
    For Each oWMIObjEx In oWMIObjSet
        For Each oWMIProp In oWMIObjEx.Properties_
            If oWMIProp.Name = "CurrentHorizontalResolution" Then Debug.Print "resolution horizontale " & oWMIProp.Value
            If oWMIProp.Name = "CurrentVerticalResolution" Then Debug.Print "resolution vertcale " & oWMIProp.Value
        Next
    Next
End Sub

[mjpmjp]

bonjour,



je te propose cette modif qui liste toutes les properties

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
 
Sub v2WMI()
    Dim oWMISrvEx As Object    'SWbemServicesEx
    Dim oWMIObjSet As Object    'SWbemServicesObjectSet
    Dim oWMIObjEx As Object    'SWbemObjectEx
    Dim oWMIProp As Object    'SWbemProperty
    Dim sWQL As String    'WQL Statement
    Dim n As Long             'Generic Counter
    sWQL = "Select * From Win32_VideoController" ' classe utilisée
    Set oWMISrvEx = GetObject("winmgmts:root/CIMV2")
    Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL)
    For Each oWMIObjEx In oWMIObjSet
        For Each oWMIProp In oWMIObjEx.Properties_
            'Debug.Print oWMIProp.Name & " " & oWMIProp.Value
            msg = msg & oWMIProp.Name & " " & oWMIProp.Value & vbCrLf
        Next
    Next
    MsgBox msg
End Sub

@+JP

[patricktoulon]

bonjour et merci pour le retour

en fait je la connais cette macro mais je m'intéresse a faire sauter les boucles qui me sont inutile car le connais déjà les deux propriétés

[unparia]

Bonour à tous
Le VRAI problème est que WMI n'est pas FORCEMENT disponible sur toutes les machines et/ou OS.
Etre dépendant de sa disponibilité, n'est alors pas mieux que de l'être de l'utilisation de fonctions de l'Api de Windows.
Et c'est donc kif-kif !
Ta demande ne précise pas en quelles unités tu veux que soit exprimées ces dimensions. Si cela importe peu -->> pas de problème --->> facile de les avoir en points.

[mjpmjp]

bonjour,


cette modif affiche : 3840

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
 
Sub v3WMI()
    Dim oWMISrvEx As Object    'SWbemServicesEx
    Dim oWMIObjSet As Object    'SWbemServicesObjectSet
    Dim oWMIObjEx As Object    'SWbemObjectEx
    Dim oWMIProp As Object    'SWbemProperty
    Dim sWQL As String    'WQL Statement
    Dim n As Long             'Generic Counter
    sWQL = "Select * From Win32_VideoController" ' classe utilisée
    Set oWMISrvEx = GetObject("winmgmts:root/CIMV2")
    Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL)
    For Each oWMIObjEx In oWMIObjSet
    msg = oWMIObjEx.CurrentHorizontalResolution
    Next
    MsgBox msg
End Sub

@+JP

[patricktoulon]

bon ben c'est déjà bien une boucle en moins