Activation de la référence à Outlook selon la version d'Office

[vmax67]

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

 

[camarchepas]

Re : Activation de la référence à Outlook selon la version d'Office

Pourquoi ne pas le cocher en manuel?
Menu outil de l'éditeur VBA , puis référence

 

[vmax67]

Re : Activation de la référence à Outlook selon la version d'Office

Cette application sera mise en place sur différents PC qui n’ont pas la même version Excel avec des personnes qui ne sont
pas des spécialistes en informatique

 

[chris]

Re : Activation de la référence à Outlook selon la version d'Office

Bonjour

Juste une remarque : tu as 2 \ celui qui termine le path et celui qui débute ton lien

 

[Compte Supprimé 979]

Re : Activation de la référence à Outlook selon la version d'Office

Bonjour le fil

Wouhaouuu la machine à gaz, il suffit tout simplement de créer l'instance d'outlook en Late Binding

Dim OutApp as Object
Set OutApp = CreateObject("Outlook.Application")

Comme ça, inutile d'activer telle ou telle référence, surtout qu'en général l'accès est bloqué

Un petit lien utile : Les fiches VBA - Comprendre : Early ou Late Binding
😉

A+

 

[Yaloo]

Re : Activation de la référence à Outlook selon la version d'Office

Bonjour à tous,

En effet Bruno, surtout si l'on a changé le répertoire d'installation par défaut 😉

A+