Base de registre : chercher le dossier d'installation d'un soft
Olivier -
29 juin 2016 à 16:04 - Dernière réponse : wmade34
Messages postés samedi 18 juin 2016Date d'inscription
20 octobre 2017
Dernière intervention
- 8 juin 2017 à 10:34
ucfoutu18039
Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut
11 avril 2018
Dernière intervention -29 juin 2016 à 16:36
0
Merci
Bonjour,
Il s'agit là de la valeur inscrite dans la clé suivante de la base de registre :
HKEY_CLASSES_ROOT\.htm\OpenWithList\Excel.exe\shell\edit\command
on la trouve également dans cette clé :
HKEY_CLASSES_ROOT\.htm\OpenWithList\Microsoft Office Excel\shell\edit\command
L'une comme l'autre ont une valeur de type (ici sur ma machine)
"C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" /e
Ceci étant dit, je n'irais personnellement pas par 4 chemins et créerais un objet Excel en liaison tardive, puis en examinerais ce dont j'ai besoin.
Voici ce que je ferais sous VB6 et qui devrait être quasi identique sous VB.Net :l
Dim o As Object Set o = CreateObject("Excel.application") MsgBox "Bonjour. L'application Microsoft Excel est intallée en " & o.Path & vbCrLf & _ "sa version est " & o.Version & " et elle tourne sur " & o.OperatingSystem & "!" Set o = Nothing
Voici ce que ce code tout bête retourne sur ma machine :
Bonjour. L'application Microsoft Excel est intallée en C:\Program Files\Microsoft Office\Office12
sa version est 12.0 et elle tourne sur Windows (32-bit) NT 5.01!
Tu dois bien évidemment y ajouter une gestion d'erreur éventuelle (cas d'absence de Excel sur la machine).
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
cs_Le Pivert5211
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
13 juillet 2018
Dernière intervention -29 juin 2016 à 17:51
0
Merci
Bonjour,
Pour mettre le code de ucfoutu que je salue, en VB.Net:
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe")
Dim excelPath As String = CStr(rk.GetValue("Path"))
MessageBox.Show("Bonjour, l'application Microsoft Excel est installée en: " & excelPath, "Emplacement Excel", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class
ucfoutu18039
Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut
11 avril 2018
Dernière intervention -29 juin 2016 à 22:02
Bonjour, Le Pivert,
Je me méfie toujours des fausses désinstallations (suppression de répertoires) qui, elles, ne suppriment pas la clé dans la base de registre et faussent donc de telles vérifications.
C'est là la raison pour laquelle j'ai proposé la 2ème solution.
