Place la liste des logiciels installés dans une feuille Excel

Tout est dans le titre et dans le code.
On peut par la suite utiliser Excel pour traiter les résultats.

Renommer le fichier en retirant ".txt" pour l'éxécuter.


ESVBA

Code plus clair
Correction du bug de tri (xldown)
Changement du format de la date de l'opération
...

Merci à bbil qui m'a éclairé sur les possibilités de VBScript (comme "With... End With").

ESVBA

:salut:
j'ai testé ton script ! Bon j'avoue que j'ai quelques problèmes avec mon Office 2007 et je crois qu'il est mal installé donc je reçois bien des messages pour l'enregistrement ou bien clé d'activation bref on se fou :lol: mais je dis la chose suivante pourquoi ne pas ajouter ce petit bout de code au début de ton script

Code:

---

1 2 3 4 5 6 7

Dim Fichier,fso Set fso = CreateObject("Scripting.FileSystemObject") if (not fso.fileexists("C:\RecupInstallation.xlsm")) then Set Fichier = fso.CreateTextFile("C:\RecupInstallation.xlsm", 2, True) Set Fichier = Nothing end if fctInstalFileInExcelSheet "C:\RecupInstallation.xlsm"

---

au lieu de dire ceci :

Citation:

---

Nécessite un fichier Excel présent à l'emplacement indiqué

---

et sera peut-être une Nouvelle Version V 0.8 :ccool: :D
Au plaisir ;)

Au départ, j'ai fait le code en VBA pour Excel puisque tous les postes utilisés possédent une version d'Excel.

Mais à l'usage, j'ai constaté qu'il serait plus facile et rapide de lancer la tâche depuis ma clé USB avec un script qui placerait les informations directement dans une feuille excel. En Effet, certains postes ne sont pas sur le réseau.

Je vais ajouter ton code à la version précédente pour avoir un code plus polyvalent aux autres utilisateurs.

Merci.

ESVBA