Récupération d'information du PC dans Excel (Fermé)

[orval34]

Bonjour à tous

Je désire récupérer les informations de mon parc PC dans on fichier Excel. Ces informations sont :

Nom Ordinateur, Domaine, Nom Complet, Utilisateur, Fabricant, Modèle, OS, Processeur, Mémoire

j'ai trouvé sur votre forum ceci 😛 : https://www.excel-downloads.com/threads/gestion-des-ressources-dun-ordinateur-sous-windows.183042/

Le fichier proposé est fort intéressant 😀, mais au lieu de fenêtre qui s'ouvre, je préférerai une écriture dans des cellules d'une feuille excel.

Voici la procédure que je désire utiliser pour récupérer toute les information e mon parc PC.

1) Mettre le fichier dans une clé USB
2) Brancher la clé sur un PC
3) Exécuter le fichier excel
4) enregistrer les informations
5) aller sur le PC suivant et recommencer à l’étape 2)

Bien sur à chaque nouvel enregistrement il faut passer à la ligne suivante !!!

J'ai commander a modifier le fichier excel du post sité si dessus, mais mes connaissance en VBA son limité et je bug sur plusieurs point:

1) Aller à la ligne suivante pour un nouvel enregistrement
2) récupérer le nom du fabricant du PC et son modèle
3) Avoir le bon nom du processeur
et bien sur
4) vos suggestions pour améliorer ce fichier !!! 🙄

voici le fichier que j'ai fait : Regarde la pièce jointe Infos Parc PC.xls

Pour corser le problème j'ai différente version d'excel. De 2007 a 2010

Merci d'avance pur vos réponses

 

[exene]

Re : Récupération d'information du PC dans Excel

Bonjour,

Bienvenue sur le forum, tu n'est pas dans la bonne rubrique, pose ta question ici

@+

 

[JCGL]

Re : Récupération d'information du PC dans Excel

Bonjour à tous,
Salut Pascal,

Bienvenue sur XLD

Peux-tu essayer avec ceci :

Option Explicit


Sub AfficherNomPC()
Dim c As Integer
Dim DerL&


DerL = Range("A" & Rows.Count).End(xlUp).Row + 1


'Nom Ordinateur
Cells(DerL, 1) = Environ("ComputerName")
'Domaine
Cells(DerL, 2) = Environ("UserDomain")
'Nom Utilisateur
Cells(DerL, 4) = Environ("UserName")
'fabricant
Cells(DerL, 5) = ""
'Modele
Cells(DerL, 6) = ""
'OS
Dim NomOS As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
    
For Each objItem In colItems
    NomOS = objItem.Caption
Next
Cells(DerL, 10) = NomOS
End Sub

A+ à tous

 

[orval34]

Re : Récupération d'information du PC dans Excel

Merci pour vos reponses

@JCGL : Ok ca passe à la ligne à chaque enregistrement

@exene : Désolè pour cette erreur. J'ai fait ma demande là ou j'ai trouvé les infos pour demarer ma macro. Je le post dans la bonne rubrique

A+