Ajout de référence par macro

bonjour,

je suis en train de faire un programme ou il faut rajouter une référence dans Microsoft Visual Basic

donc j'ai mit le programme suivant dans workbook_open

Private Sub Workbook_Open()

 Dim activer As Boolean
 Dim nbrRef As Integer
 Dim i As Integer

    activer = False
    nbrRef = ThisWorkbook.VBProject.References.Count  ' recupere le nombre de reference du projet VBA
    For i = 1 To nbrRef
        If ThisWorkbook.VBProject.References.Item(i).Name = "LabelManager2" Then ' recherche la reference utilisé
            activer = True
            Exit For
        End If
    Next i

    If activer = False Then
        If Application.International(xlCountryCode) = 33 Then ' verifie le langage de windows 33 -> français voir https://support.microsoft.com/en-us/kb/213833 pour plus d'info
            x = "C:\Programmes\CS6\Lppx2.tlb"
        Else
            x = "C:\Program Files\CS6\Lppx2.tlb"
        End If
        ThisWorkbook.VBProject.References.AddFromFile x ' ajoute la reference manquante
    End If

et sur mon PC pas de souci, si j’enlève ma référence de la liste le programme le remet par contre si je lance le fichier excel à partir d'un autre PC, la macro plante sur la ligne

nbrRef = ThisWorkbook.VBProject.References.Count

elle dit "la methode VBProject à échoué" ou un truc du genre

et je ne comprends pas du tout pourquoi

quelqu'un aurait il une réponse je galère énormément la ?

merci d'avance de prendre du temps pour moi

Bonjour,

C'est certainement lié à un paramètre de sécurité.

Vérifie donc si "accès approuvé au module d'objet du projet VBA" est bien coché au niveau des paramètres de macro dans le centre de gestion et confidentialité.

bonjour,

merci c'était ça.

ça m'aide grandement merci