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
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.