Macro pour appeler une bibliothèque
Bonjour,
J'ai codé une macro qui utilise une référence à la bibliothèque d'objet Outlook (Outil - Référence - Cocher la case Microsoft Outlook Object Library).
Le truc, c'est que si j'envoie mon fichier à quelqu'un, la macro ne tournera pas sur son poste parce que le destinataire n'aura pas nécessairement lancé cette bibliothèque.
Existe-t-il une procédure que je peux appeler en début de macro et qui se charge d'aller activer cette bibliothèque ?
Merci par avance de vos réponses
Bonjour Fredctr,
Oui ça existe. Mais pour ça, tu dois récupérer le chemin de la référence
'Ajoute la référence Outlook pour OfficeXP
Dim x As String
x = "C:\Program Files\Microsoft Office\Office10\MSOUTL.OLB"
ThisWorkbook.VBProject.References.AddFromFile xLe bémol c'est qu'il se peut que la référence n'existe tout simplement pas sur le PC cible.
Par exemple, sur mon PC, je n'ai pas cette référence. Donc même en voulant activer cette bibliothèque par macro, ça ne marchera pas pour moi.
Bonjour
Et si dans le code tu mettais simplement un renvoi vers un message en cas d'erreur
Genre ceci :
Sub test()
On error go to fin
'...le code
Exit sub
Fin : Msgbox "le code ne peut être exécuté sans avoir coché la référence Microsoft Outlook Object Library - Contacter l'admin du fichier"
End subAmicalement