nouvelle demo Luc72

Luc72

XLDnaute Nouveau
bonsoir
encor un petit cadeau avant noel

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

Luc72

XLDnaute Nouveau
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]
 

Pièces jointes

  • demoluc72.zip
    25 KB · Affichages: 23

_Thierry

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Nouveau
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, :eek: sont de moi :eek: ( je fais toujours au plus simple!, tant que ça marche!)
 

Luc72

XLDnaute Nouveau
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

XLDnaute Accro
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
 

Luc72

XLDnaute Nouveau
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_

Nous a quitté
Repose en paix
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
3
Affichages
407

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata