nouvelle demo Luc72

[Luc72]

bonsoir
encor un petit cadeau avant noel

n' hésitez pas à me faire par de vos remarques

 

[_Thierry]

Bonsoir Luc, le Forum

Je ne sais pas si c'est pour Noël, mais ça sent plutôt le 1er Avril ton histoire 😉

Bonne Soirée
[ol]@+Thierry[/ol]

PS Pour les petits délires, il y a le Salon

 

[Luc72]

oupsssssssss le fichier :S
bonsoir _Thierry et tout le monde
j'ai bêtement laissé un z'accent :whistle:

[file name=demoluc72.zip size=25644]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/demoluc72.zip[/file]

 

[_Thierry]

Re Bonsoir Luc

Ah c'est déjà mieux. Interressant ton fichier, il y a des trouvailles sympa.

C'est de toi, ou c'est un regroupement de différentes procédures trouvées au grè du vent sur le Net ? Je dis ceci car selon les procédures, il y est utilisé des caractères de déclaration de type ($, &...) et pas dans d'autres... Un peu comme si on reconnaissait différentes 'proses'.

Merci en tout cas de nous en faire profiter.

Une recommandation, 'Option Explicit' en top de Module, ce qui t'obligera à déclarer toutes les Variables.

Bonne Soirée
@+Thierry

 

[Luc72]

re bonsoir _Thierry

certainnes sont des codes trouvés dans des archives de mon voisin , qui comme je l'expliquai dans un précédent poste a débuté proféssionnelement sur la première version de Excel et a suivi l'évolution, d'autres trouvées sur le net et mises en aplication pour le fun car sympatiques ou bien utiles
et les plus simples, 😱 sont de moi 😱 ( je fais toujours au plus simple!, tant que ça marche!)

 

[Luc72]

j'oubliais
certains codes sont remodelés
dans cette demo , vitesse cpu et nb de fichiers sont de moi pour cpu et mon voisin pour nb de fichiers a partir d'une de ses anciennes macro retrouvée sur papier (jauni)
nous tenton de remetre certains codes au gout du jours mais il faut en traduire ubn bon nombre (
pas toujours facil)
mais il ya des truc sympats a vennir B)

 

[michel_m]

Re,

Re,

Trouvé sur le site de Sigonneau qui a du pomper sur toi pour la vitesse du CPU,cher Luc72-Jan Damkjar:

'NT4/2000/XP ?
'Win ME
Sub ProcessorSpeed()
'Jan Damkjær Dahl
Dim MyOBJ
Dim cpu
Set MyOBJ = GetObject('WinMgmts:').instancesof('Win32_Processor')
For Each cpu In MyOBJ
Stop
MsgBox cpu.Name & ' ' & cpu.CurrentClockSpeed & ' Mhz', vbInformation


Michel_M
Next
End Sub

 

[Marc_du_78]

Bonsoir Luc, Thierry, michel_m,
Merci pour toute cette série de démo qui vont me permettre d'avancer encore d'un pas dans ma connaissance du vba.
Que cela sera-t-il pour Noël...
Bonne soirée.

 

[Luc72]

re bonsoir a vous
pour vous repondre avant d'aller au dodo
michel ce code est tout simplement le meme soit parce qu'il est logique soit par le fait du hazard mais c'est plus la logique a mon avis car pour ma part j'ai fait appel a un amis informaticien pour trouver comment avoir les données du cpu ( il m'a même trouver des fichiers effacés suite a un formatage mais incapable de le refaire par moi même????????? :sick🙂ensuite après observation son code est aparament fait pour Win ME et je tourne sous Win ME .quand a son site il ya des choses pas mal du tout que je vait tester et peut etre en faire une demo 😉
marc pour noel ce sera Excel avec des boules et des decorations pour en metre plein les yeux B)
bonne nuit a vous
ps je viens de voir aussi que l'on prend vite la facon d'ecrire que certains
arf lire des codes et des codes et des
codes ses pas bon pour la personnalitée

 

[Ti_]

Salut
De toute façon c'est toujours une bonne chose de signaler systématiquement ses sources, d'une part c'est une bonne habitude, d'autre part ça fait plaisir à l'auteur dont on s'est inspiré, puis surtout on ne sait jamais, si d'autres tombent sur ce truc et que ça les intéresse à leur tour, il peuvent ainsi remonter directement à la source.

 

[MichelXld]

bonjour à tous

Luc merci pour ton classeur démo



juste pour info, il est possible de récupérer la (presque) totalité de WMI Class Win32_Processor par VBA


Sub Proprietes_Processeurs()
'adapté de Ce lien n'existe plus
'enregistre les propriétés des processeurs dans un fichier Texte

Dim objWMIService As Object, colItems As Object, objItem As Object
Dim nomPC As String, Fichier As String

nomPC = '.'
Fichier = 'C:\\\\\\\\Propriétés_Processeurs.Txt'
Open Fichier For Output As #1

Set objWMIService = GetObject('winmgmts:\\\\\\\\\\\\\\\\' & nomPC & '\\\\\\\\root\\\\\\\\cimv2')
Set colItems = objWMIService.ExecQuery('Select * from Win32_Processor', , 48)
For Each objItem In colItems
Print #1, ''
Print #1, 'AddressWidth: ' & objItem.AddressWidth
Print #1, 'Architecture: ' & objItem.Architecture
Print #1, 'Availability: ' & objItem.Availability
Print #1, 'Caption: ' & objItem.Caption
Print #1, 'ConfigManagerErrorCode: ' & objItem.ConfigManagerErrorCode
Print #1, 'ConfigManagerUserConfig: ' & objItem.ConfigManagerUserConfig
Print #1, 'CpuStatus: ' & objItem.CpuStatus
Print #1, 'CreationClassName: ' & objItem.CreationClassName
Print #1, 'CurrentClockSpeed: ' & objItem.CurrentClockSpeed
Print #1, 'CurrentVoltage: ' & objItem.CurrentVoltage
Print #1, 'DataWidth: ' & objItem.DataWidth
Print #1, 'Description: ' & objItem.Description
Print #1, 'DeviceID: ' & objItem.DeviceID
Print #1, 'ErrorCleared: ' & objItem.ErrorCleared
Print #1, 'ErrorDescription: ' & objItem.ErrorDescription
Print #1, 'ExtClock: ' & objItem.ExtClock
Print #1, 'Family: ' & objItem.Family
Print #1, 'InstallDate: ' & objItem.InstallDate
Print #1, 'L2CacheSize: ' & objItem.L2CacheSize
Print #1, 'L2CacheSpeed: ' & objItem.L2CacheSpeed
Print #1, 'LastErrorCode: ' & objItem.LastErrorCode
Print #1, 'Level: ' & objItem.Level
Print #1, 'LoadPercentage: ' & objItem.LoadPercentage
Print #1, 'Manufacturer: ' & objItem.Manufacturer
Print #1, 'MaxClockSpeed: ' & objItem.MaxClockSpeed
Print #1, 'Name: ' & objItem.Name
Print #1, 'OtherFamilyDescription: ' & objItem.OtherFamilyDescription
Print #1, 'PNPDeviceID: ' & objItem.PNPDeviceID
Print #1, 'PowerManagementCapabilities: ' & objItem.PowerManagementCapabilities
Print #1, 'PowerManagementSupported: ' & objItem.PowerManagementSupported
Print #1, 'ProcessorId: ' & objItem.ProcessorId
Print #1, 'ProcessorType: ' & objItem.ProcessorType
Print #1, 'Revision: ' & objItem.Revision
Print #1, 'Role: ' & objItem.Role
Print #1, 'SocketDesignation: ' & objItem.SocketDesignation
Print #1, 'Status: ' & objItem.Status
Print #1, 'StatusInfo: ' & objItem.StatusInfo
Print #1, 'Stepping: ' & objItem.Stepping
Print #1, 'SystemCreationClassName: ' & objItem.SystemCreationClassName
Print #1, 'SystemName: ' & objItem.SystemName
Print #1, 'UniqueId: ' & objItem.UniqueId
Print #1, 'UpgradeMethod: ' & objItem.UpgradeMethod
Print #1, 'Version: ' & objItem.Version
Print #1, 'VoltageCaps: ' & objItem.VoltageCaps
Print #1, ''
Print #1, ''
Next

Close
End Sub



bonne journée
MichelXld

 

[Luc72]

bonjour a vous tous et toutes

merci michel 🙂
si ça continu excel va devenir un utilitaire de maintenace pc 😉
bonne journée