Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

MJ13 à dit:

Bonjour UnInternaute

Tu peux adapter un code de ce type issu du site de Frédéric Sigonneau:

Code:

Sub AjouteRéférence()
'Addref F. Sigonneau
'nom du classeur auquel renvoie la référence : "D:\Classeur1.xls"
'nom du projet VBA de ce classeur : TestRéférence(Classeur1.xls)
On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office15\MSOUTL.OLB"
End Sub
Sub EnlèveRéférence()
    With ThisWorkbook.VBProject.References
        .Remove .Item("TestRéférence")
    End With
End Sub

Cliquez pour agrandir...

MJ13 à dit:

Re

A adapter bein sùr 🙂.

Il suffit de le tester dans un module standard avant de le metttre dans le Workbook_Open. Il faudra aussi penser à modifier le chemin et le nom du fichier.

Cliquez pour agrandir...

MJ13 à dit:

Re

Par contre, pense à nous donner la solution 🙂.

Cliquez pour agrandir...

MJ13 à dit:

Re

Tu peux essayer ces codes:

Code VBA:
Sub RefToLibrary()
'OK Sur XL 2013
' create a reference to the VBA Extensibility library.
On Error Resume Next ' in case the reference already exits
ThisWorkbook.VBProject.References _
.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 0
End Sub


Code VBA:
'Microsoft visual basic for application extensibility 5.3
'Pour Windows 64 bits et Excel 32 bits
'C:\Program Files (x86)\Common Files\microsoft shared\VBA\VBA6
'VBE6EXT.OLB
Sub AjouteRéférenceExtensibility53()
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Common Files\microsoft shared\VBA\VBA6\VBE6EXT.OLB"
End Sub

Cliquez pour agrandir...

MJ13 à dit:

Re

Workbook_open

Cliquez pour agrandir...