[VB.NET 2005] Version des composants Office installés sur un poste

Exemple pour obtenir la version d'Excel installé sur un poste, fonctionne aussi pour les autres outils Office

Code:

1
2
3
4
5
6
7
8
9
10
 
    Public Function GetVersionExcel() As String
        Try
            Dim rk As Microsoft.Win32.RegistryKey = Registry.ClassesRoot.OpenSubKey("Excel.Application\\CurVer", False, Security.AccessControl.RegistryRights.ReadKey)
            Return rk.GetValue("")
        Catch e As Exception
            Debug.Write("GetValeurRegistre")
            Return ""
        End Try
    End Function

nécessite :

Code:

1
2
3
 
Imports System.Security.Permissions
Imports Microsoft.Win32