Discussion :

[Un Internaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Un Internaute]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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