Bonjour à tous
je cherche à activer la référence à Outlook selon la version d'Office.
J'ai bien bien un code concernant cette action mais il ne coche pas référence en fonction de la version d'Excel.
Public Sub ActiveRef()
Dim sPathProg As String
'Active la référence à Outlook selon la version d'Office
' Version de windows 32 ou 64 bits
Select Case InStr(1, Application.Path, "(x86)")
Case 0
sPathProg = "C:\Program Files\"
Case Is > 0
sPathProg = "C:\Program Files (x86)\"
End Select
' Selon la version d'office
Select Case Application.Version
Case "12.0" ' Office 2007
Call Addref(sPathProg & "\Microsoft Office\OFFICE12\msoutl.olb")
Case "14.0" ' Office 2010
Call Addref(sPathProg & "\Microsoft Office\OFFICE14\msoutl.olb")
Case "15.0" ' Office 2013
Call Addref(sPathProg & "\Microsoft Office\OFFICE15\msoutl.olb")
End Select
End Sub
Sub Addref(AdresseRef As String)
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile AdresseRef
End Sub
Merci
Vmax
je cherche à activer la référence à Outlook selon la version d'Office.
J'ai bien bien un code concernant cette action mais il ne coche pas référence en fonction de la version d'Excel.
Public Sub ActiveRef()
Dim sPathProg As String
'Active la référence à Outlook selon la version d'Office
' Version de windows 32 ou 64 bits
Select Case InStr(1, Application.Path, "(x86)")
Case 0
sPathProg = "C:\Program Files\"
Case Is > 0
sPathProg = "C:\Program Files (x86)\"
End Select
' Selon la version d'office
Select Case Application.Version
Case "12.0" ' Office 2007
Call Addref(sPathProg & "\Microsoft Office\OFFICE12\msoutl.olb")
Case "14.0" ' Office 2010
Call Addref(sPathProg & "\Microsoft Office\OFFICE14\msoutl.olb")
Case "15.0" ' Office 2013
Call Addref(sPathProg & "\Microsoft Office\OFFICE15\msoutl.olb")
End Select
End Sub
Sub Addref(AdresseRef As String)
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile AdresseRef
End Sub
Merci
Vmax