Activer les Références par VBA Excel

Question

Bonjour à tous,
Mon problème est le suivant : J'ai créé plusieurs fonctions sous VBA Excel que j'ai voulu intégrer en tant que module complémentaire d'Excel. j'ai créé donc un fichier .xlam . Tout marche très bien.

Le problème c'est que mes fonction nécessite l'activation de plusieurs références dans la bibliothèque VBA. je cherche donc un code qui me permettra d'activer automatiquement ses références avant chaque utilisation.

Ca aurait été plus simple de les activer une fois pour toute mais les fonction en question vont être utilisées sur plusieurs PC.  

pour information, j'ai mis la liste des références que je voudrais activer 

Merci pour votre aide

cmarcotte · Answer

Bonjour,

En principe, tu devrais trouver ton bonheur dans cette page.

cs_chafik20002000 · Answer

Bonjour, 
Merci cmarcotte pour ta réponse, c'est vraiment ce que je cherchais :)
Mais quand je teste le code il me sort un message d'erreur 1004 "l'acces par programme au projet Visual Basic n'est pas fiable".
tu saurais comment corriger l'erreur ?

cmarcotte · Answer

Bonjour,

Cela dépend de la version d'Excel, mais en gros c'est dans les paramètres de sécurité des macros. Avant Excel 2007, il faut cocher la case "Faire confiance au projet VisualBasic" quelque part dans les options de sécurité des macros.

Pour Excel 2010, c'est "Accès approuvé au modèle d'objets su projet VBA" dans le Centre de gestion de la confidentialité.

cs_chafik20002000 · Answer

Oui effectivement j'ai changé cela et ca a marché, mais je n'arrive toujours pas à trouver un code qui m'active les référence. la plupart des codes parle d'installer une référence mais pas l'activer, et puisque chez moi tout est déjà installé ca beug chez moi

cmarcotte · Answer

Installer ou activer c'est la même chose. Décoche tes références et relance le programme.

Comme il n'y a probablement pas d'erreur dans ces codes je peux dire cela, dans ce cas précis; ajoute

on error resume next 

au début du programme

bobbretagne1 · Answer

bonjour
j'ai un projet identique ou je dois valider une référence pdfcreator.
mais sur d'autres PC, je ne sais pas si le lien est le même c:\program files\pdfcreator\pdfcreator.exe
comme dans la liste, il y est pourquoi doit on donner le lien et existe t il un code pour cocher dans la liste sans le lien ?


'Appel recherche et active si non
    If Not ReferenceActive("PDFCreator") Then ActiverReference "C:\Program Files\PDFCreator\PDFCreator.exe"
'Fonction Reference Active
Function ReferenceActive(Nom As String) As Boolean
    Dim i As Integer
    Dim NbreRef As Integer
 
    NbreRef = ThisWorkbook.VBProject.References.Count
 
    For i = 1 To NbreRef
        If ThisWorkbook.VBProject.References(i).Name = Nom Then
            ReferenceActive = True
            Exit Function
        End If
    Next i
End Function
'Fonction active reference
Sub ActiverReference(NomComplet As String)
    ThisWorkbook.VBProject.References.AddFromFile NomComplet
End Sub

Activer les Références par VBA Excel

6 réponses

Votre réponse

sur les mêmes thèmes