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 "11.0"
Call Addref(sPathProg & "\Microsoft Office\OFFICE11\msoutl.olb")
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")
End Select
End Sub
Sub Addref(AdresseRef As String)
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile AdresseRef
End Sub