Recupérer la version d'excel sous VB

Application.Version

Cordialement,
--
AP

"Pierre2004" <Pierre2004@discussions.microsoft.com> a écrit dans le message
de news:ACB3D691-C450-421B-9C3C-9D0C74097F35@microsoft.com...

Bonjour,

Je cherche un moyen de récupérer sous VBA la version d'excel installée sur
la machine.

Merci d'avance.

Bonjour Pierre2004;
MsgBox Application.Version

sinon:

Sub CheckExcelVersion()
If IsNull(RegRead("HKCRExcel.Application")) Then
MsgBox "Excel.Application object not found on this computer !", 48
Else
MsgBox Mid(RegRead("HKCRExcel.ApplicationCurVer"), 19), 64
End If
End Sub

Private Function RegRead(ByVal RegPath)
On Error Resume Next
RegRead = CreateObject("wscript.shell").RegRead(RegPath)
If Err Then
Err.Clear
RegRead = Null
End If
On Error GoTo 0
End Function

MP

"Pierre2004" <Pierre2004@discussions.microsoft.com> a écrit dans le message
de news: ACB3D691-C450-421B-9C3C-9D0C74097F35@microsoft.com...

Bonjour,

Je cherche un moyen de récupérer sous VBA la version d'excel installée sur
la machine.

Merci d'avance.

Super, un grand merci à tous les deux,

A bientot.

Bonjour Pierre2004;
MsgBox Application.Version

sinon:

Sub CheckExcelVersion()
If IsNull(RegRead("HKCRExcel.Application")) Then
MsgBox "Excel.Application object not found on this computer !", 48
Else
MsgBox Mid(RegRead("HKCRExcel.ApplicationCurVer"), 19), 64
End If
End Sub

Private Function RegRead(ByVal RegPath)
On Error Resume Next
RegRead = CreateObject("wscript.shell").RegRead(RegPath)
If Err Then
Err.Clear
RegRead = Null
End If
On Error GoTo 0
End Function

MP

"Pierre2004" <Pierre2004@discussions.microsoft.com> a écrit dans le message
de news: ACB3D691-C450-421B-9C3C-9D0C74097F35@microsoft.com...

Bonjour,

Je cherche un moyen de récupérer sous VBA la version d'excel installée sur
la machine.

Merci d'avance.