Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Liste des prg installés

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Cousinhub

XLDnaute Barbatruc
Bonjour,

Tout d'abord, quelques news de Kanakie.....(tout va bien....)

Puis :

Dans le panneau de config de Windows, on peut voir tous les programmes installés, via "Ajout/Suppression de Programme...."

Cette liste de prg installés ne tient pas en compte tous les ".....exe" qu'on peut avoir sur un PC, mais uniquement les "programmes installés", ainsi que les "mises à jour", en cochant la case qui va bien....

Et donc, la question :

"Est-il possible de récupérer tous les prg installés, sans prendre en compte les mises à jour, via un code VBA?"

Liste à copier, of course, in one sheet....

Merci, bien évidemment...

PS, dans quelques jours, quelques photos.....
 
Trier par date Trier par votes
Re : Liste des prg installés

Salut bhbh,

une première piste ci-dessous, issue de scipt MS
Par contre je crois que ca ne sort que les prog installés à partir d'un .msi.
Je regarde si on peut faire mieux.


Code: 
Sub liste_pgr()
Dim i As Integer

Application.ScreenUpdating = False
Application.StatusBar = "Recherche en cours ..."

Set objFSO = CreateObject("Scripting.FileSystemObject")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")

libelles = Array("Caption", "Description", "Identifying Number", "Install Date", "Install Location" _
    , "Install State", "Name", "Package Cache", "SKU Number", "Vendor", "Version")
For i = 0 To UBound(libelles)
    ThisWorkbook.ActiveSheet.Cells(1, i + 1) = libelles(i)
Next i

For Each objSoftware In colSoftware
    i = ActiveSheet.Cells(65536, 1).End(xlUp).Row
    
    ThisWorkbook.ActiveSheet.Cells(i + 1, 1) = objSoftware.Caption
    ThisWorkbook.ActiveSheet.Cells(i + 1, 2) = objSoftware.Description
    ThisWorkbook.ActiveSheet.Cells(i + 1, 3) = objSoftware.IdentifyingNumber
    ThisWorkbook.ActiveSheet.Cells(i + 1, 4) = objSoftware.InstallDate2
    ThisWorkbook.ActiveSheet.Cells(i + 1, 5) = objSoftware.InstallLocation
    ThisWorkbook.ActiveSheet.Cells(i + 1, 6) = objSoftware.InstallState
    ThisWorkbook.ActiveSheet.Cells(i + 1, 7) = objSoftware.Name
    ThisWorkbook.ActiveSheet.Cells(i + 1, 8) = objSoftware.PackageCache
    ThisWorkbook.ActiveSheet.Cells(i + 1, 9) = objSoftware.SKUNumber
    ThisWorkbook.ActiveSheet.Cells(i + 1, 10) = objSoftware.Vendor
    ThisWorkbook.ActiveSheet.Cells(i + 1, 11) = objSoftware.Version
Next

Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Liste des prg installés

Bonjour bhbh,

en fenetre de commande, c'est:
c:\ [entrée]
dir *.exe /S [entrée]
pour l'avoir dans un fichier :
dir *.exe /S >ListeEXE.txt [entrée]
si tu fais un fichier batch dos, tu peux l'executer en VBA par shell (je crois)
 
Vote positif 0 Vote négatif
Re : Liste des prg installés

Re-,

@ gwenlorin :

Superbe, ton code, mais comme tu le précises, uniquement les programmes issus d'un .msi....

Un jeu installé n'apparait pas....😱

@ Mutzig, Effectivement, ton script répertorie tous les "*.exe" du lecteur C...
Cependant, ils ne sont pas tous forcément installés....

Merci pour vos contributions

PS, ici, début de l'été.....😛😛
 
Vote positif 0 Vote négatif
Re : Liste des prg installés

Re,

je retente ma chance.

Cette fois-ci j'ai travaillé sur la base de registre et la clé "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" qui est censé contenir la liste que l'on retrouve via "Ajout/Suppression de Programme...."

En rendu j'ai conservé les clés qui ont un nom qui ne contient pas les termes "correctif " et "mise à jour" pour coller au mieux à ta demande. A modifier au besoin.

La liste des informations retournée peut être plus importante que ce que j'ai mis. Il suffit d'explorer la base de registre pour trouver son bonheur 🙂

dans le fichier joint, 2 modules :
- 1 pour la macro
- l'autre pour les fonctions liées à la base de registre

Pour ces dernières merci au site de Frédéric sigonneau (j'adore ce site) et aux auteurs

a+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Liste des prg installés

Bonsoir,

@ Gwenlorin : Magnifique, ton programme fonctionne à merveille... C'est fou tout ce qu'on peut installer sur un PC...
Merci beaucoup

@ Mutzik, merci également pour ta participation

@ tototiti2008 : Merci également, mais je ne connais rien en VBScript, et donc je ne sais pas trop comment l'utiliser

@ Hasco : Le bonjour également de ce "magnifique caillou", comme tu l'appelles si bien. Le séjour se passe très bien, on commence à avoir de plus en plus chaud, et le tsunami d'hier nous a quand même fait arriver une vague de 20 cm sur les côtes....(on s'en sort bien, malgré tout...). J'en profite pour passer le bonjour à tout le monde.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2021 Planning de suivi des actions pour service Hygiène Sécurité et Environnement
Réponses
2
Affichages
1 K
fanfan38
N
  • Résolu(e)
XL 2016 tableau de vente/gestion des stocks boutique : quelles formules ?!
2
Réponses
17
Affichages
3 K
Noëllie
N
  • Question Question
XL 2013 la librairie shell and automation de Microsoft a t elle des limites
Réponses
5
Affichages
960
patricktoulon
POWERQUERY :: Lancement de requêtes à tiroir - dynamiques - paramétrables - code des requêtes sur disque - Exemple de mise en oeuvre
Réponses
0
Affichages
716
oguruma
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
T
  • Question Question
Microsoft 365 Planning de réservation de matériel (avec gestion des stocks) - Formules utiles ?
Réponses
7
Affichages
3 K
vgendron
M
  • Question Question
Microsoft 365 Importation incrémentielle de données avec mise a jour des données présentes
Réponses
0
Affichages
677
Mathieu35190
M
Y
  • Résolu(e)
XL 2013 Ordre des onglets créés par rapport à une liste de départ
Réponses
8
Affichages
2 K
Yudlo
Y
E
  • Résolu(e)
XL 2016 Tableau récap des meilleurs élèves
Réponses
6
Affichages
2 K
Esfloria
E
P
  • Résolu(e)
XL 2010 Masquer des colonnes en fonction de la valeur de la cellule en tête de la colonne
Réponses
6
Affichages
1 K
Patpatapat
P
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
G
  • Question Question
XL 2013 Planning des recettes et liste de course
Réponses
11
Affichages
6 K
JM27
C
  • Question Question
XL 2016 Autorisation du triage des colonnes avec protection de la feuille activé
2
Réponses
24
Affichages
3 K
Charles Sion
C
L
  • Question Question
XL 2016 Répartition des taches en fonction des présents via liste déroulante n'indiquant que les présents
2
Réponses
15
Affichages
4 K
Bebere
B
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
F
  • Question Question
VBA-Statistique-transfert-liste Besoin d'expert VBA svp!
2 3
Réponses
41
Affichages
4 K
Docmarti
D
J
  • Question Question
liste déroulante conditionnelle en cascade
Réponses
2
Affichages
5 K
jeanromain
J
J
  • Question Question
Liste déroulante avec affichage des données à chaque individu!
Réponses
12
Affichages
2 K
jujunexcelpas
J
S
  • Question Question
Activate : besoin ou pas selon la méthode employée
Réponses
10
Affichages
1 K
Sebast
S
P
  • Question Question
MAJ d'une feuille, suppression des doublons puis copie
Réponses
0
Affichages
665
phil1979
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…