Discussion :

[Oliv-]

Bonjour,
Je suis sous windows 7 pro 64 bit et je voudrais récupérer dans un fichier excel la liste des maj proposées lors d'un windows update.

on peut la récupérer manuellement en selectionnant tout puis clic droit "copier les détails", mais peut on la récupérer par programmation vba ?

j'ai ce bout de code qui pointe sur la fenêtre en question

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
Public Sub get_maj()
' AJOUTER UNE REFERENCE à 'Microsoft Internet control'
 
'find the right internet explorer webpage
    Dim allExplorerWindows As New SHDocVw.ShellWindows
    Dim IEwindow As Object
 
    Set allExplorerWindows = New SHDocVw.ShellWindows
    Titre = "Sélectionner les mises à jour à installer"
    For Each IEwindow In allExplorerWindows
        Debug.Print IEwindow.LocationURL
        If InStr(1, IEwindow.LocationName, Window, vbTextCompare) <> 0 Then
           'récupérer les infos ici
 
 
            Exit For
        End If
    Next
End Sub

[patricktoulon]

ou la h!!!!
bonsoir Oliv c'est quoi le rapport avec Wupdate cet Object liste que les fenêtres Ie ??????????
je n'ai ja mais eu cette idée mais en fouillant avec mes gros doigts dans Windows on peut atteindre le rapport des mise a jours effectuées sur w7


"C:\Windows\SoftwareDistribution\ReportingEvents.log"a ouvrir avec open ou un fso

[Oliv-]

Salut Patrick,
En fait je croyais aussi que cela n'affichait que les fenetres IE mais en fait cela affiche toutes les fenêtres IE/EXPLORER/ et des fenêtres du panneau de configuration !

Merci pour le path du fichier log, mais en fait je voudrais obtenir la liste des maj DISPONIBLES et non celles installées, c'est pour un reporting à notre DSI (qui ne fait pas toutes les maj)

je sais le faire via le clic droit puis une redisposition des donné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
18
19
20
21
22
23
24
25
26
27
28
29
Sub Dispatch_maj()
    Dim D
    Dim NbVides
 
    Set dernierligne = Worksheets("brut").Range("a1").SpecialCells(xlLastCell)
    colonne = 1
    NbVides = 0
    ligne = 2
 
    For i = 1 To dernierligne.Row
        If Worksheets("brut").Cells(i, 1).Value = "" Then
            NbVides = NbVides + 1
            If NbVides < 3 Then
            Else
                colonne = 1
                ligne = ligne + 1
            End If
        Else
        NbVides = 0
        If InStr(1, Worksheets("brut").Cells(i, 1).Value, "Type de mise à jour", vbTextCompare) And colonne = 3 Then colonne = colonne + 1
 
          Worksheets("final").Cells(ligne, colonne).Value = Worksheets("brut").Cells(i, 1).Value
             colonne = colonne + 1
 
        End If
 
    Next i
 
End Sub

mais je pensais que tu saurais aller plus loin ...

[patricktoulon]

BONJOUR Oliv
Ben en fait moi aussi je me servais de ca mais justement ce qui est comique dans l histoire c est que depuis. Une. mise a jour ca ne liste que Ie lol !!!!! Tu trouvera d ailleur dans le fil de la discution a ce sujet dans ma.Contrib je l avais signalé

[Oliv-]

ah oui ! effectivement c'est comique !

Mais alors ca veut dire qu'une macro que j'utilisais pour rafraichir un explorer , ne fonctionnera plus après cette MAJ !?

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Sub refresh_explorer(rep)
'---------------------------------------------------------------------------------------
' Procedure : refresh_explorer
' Author    : Oliv
' Date      : 18/02/2016
' Purpose   : rafraichie l'explorateur ouvert sur le dossier passé en argument
' AJOUTER UNE REFERENCE à 'Microsoft Internet control'
'---------------------------------------------------------------------------------------
'
 
'find the right internet explorer webpage
    Dim allExplorerWindows As New SHDocVw.ShellWindows
    Dim IEwindow As Object
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    AFolder = FSO.GetParentFolderName(rep)
 
    Set allExplorerWindows = New SHDocVw.ShellWindows
    AFolder = Replace(AFolder, "\", "/")
    For Each IEwindow In allExplorerWindows
        Debug.Print IEwindow.LocationURL
        If InStr(IEwindow.LocationURL, AFolder) <> 0 Then
            IEwindow.Refresh
            'on peut quitter au premier trouvé
            'exit for
        End If
    Next
End Sub
 
Sub Test_refresh_explorer()
    PathNomExport = "E:\temp\PRINTtemp\Email RE Badge tour09042014 123004.msg"
    Call ModifDate(CStr(PathNomExport), Date, 4)
    Call refresh_explorer(PathNomExport)
 
End Sub

[patricktoulon]

re hahaha ben oui LOL j'ai plein d'exemples comme ca de petit macro qui fonctionnais avant et qui ne fonctionnent plus
en fait
je viens de découvrir qu'en late binding ca réagi différemment
essaie le en latebinding to object voir si c'est différent

une preuve en plus qui confirme ce que je dis le latebinding utilise l'object installé dans Windows la référence semble utiliser une copie dans exel je sais pas ou il faudrait une bonne fois pour toute que je m'intéresse a ce soucis