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
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!
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question