Microsoft Visual Basic For Applications Extensibility 5.3 en permanence

Bonjour le forum,
A la suite de ce sujet j'ai trouvé quelque chose qui qui peut "faire l'affaire" mais ça bug sur une autre ligne.
J'ais mis ça dans ThisWorkbook

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() On Error Resume Next ThisWorkbook.VBProject.References _ .AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 0 End Sub

---

Dans un autre module j'ai ça aussi.

Code:

---

Private Sub Workbook_Open()

---

Si je mets le code ci-dessus en commentaire effectivement ça ne bug plus mais c'est pas normal
Avez vous une idée svp.
Ah! le VBA et moi!!!
Bonne journée à vous tous
Cordialement

Re-Bonjour le forum,
J'ai mis ça et ça ne bug plus!
Est-ce logique ou pas?
Cordialement

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) On Error Resume Next ThisWorkbook.VBProject.References _ .AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 0 End Sub

---