Exemple pour obtenir la version d'Excel installé sur un poste, fonctionne aussi pour les autres outils Office
nécessite :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Imports System.Security.Permissions Imports Microsoft.Win32
Partager