Recuperer temperature pc sous Excel

Bonjour a tous,

j'aurai voulu savoir si il existai un moyen de récupérer les températures et vitesse de ventilo de mon pc (cpu, gpu, carte mere, ddr)

sur une feuille excel.

j'ai fait des recherche et aucun résultat concluant.

J'espère que vous pourrez m'aider.

pour info je travail sous un excel 2010.

Merci d'avance.

bonsoir

si le constructeur de ton PC a prévu de mettre l'info à disposition via le WMI, le code suivant devrait te donner la réponse

Sub test()

Set infopc = GetObject("winmgmts:\\.\root\CIMV2")
Set infoItems = infopc.ExecQuery( _
    "SELECT * FROM Win32_TemperatureProbe", , 48)
For Each objItem In infoItems

    MsgBox "Temperature: " & objItem.CurrentReading
Next

End Sub