activer ref vba

[Marc_du_78]

Bonjour le Forum,
Y aurait-il un code permettant d'activer automatiquement les références visual basic au moment de l'ouverture d'un fichier excel pour :

Microsoft Excel xx Objet Library

Microsoft Forms xx Objet Library

Microsoft Office xx Objet Library

En vous remerciant chaleureusement.

 

[slimsamfr]

oui voici un exemple

If Verssion = '10.0' Or '11.0' Then ' si 10.0 alors excel 2002 si 11.0 alors excel 2003
pathVBAExtensibility = _
'C:\\PROGRAM FILES\\FICHIERS COMMUNS\\MICROSOFT SHARED\\VBA\\VBA6\\Vbe6ext.olb'
Else 'Ok pour Excel 97 SR-2
pathVBAExtensibility = _
'C:\\PROGRAM FILES\\FICHIERS COMMUNS\\MICROSOFT SHARED\\VBA\\VBEEXT1.OLB'
End If
'ajouter la référence
ThisWorkbook.VBProject.References.AddFromFile pathVBAExtensibility

Voici un exemple pour effacer une reference:
Il faut connaitre le guide.

Sub effacer_reference()
Dim ref As Reference
For Each ref In ThisWorkbook.VBProject.References
If ref.GUID = '{0002E157-0000-0000-C000-000000000046}' Then
ThisWorkbook.VBProject.References.Remove ref
End If
Next ref
End Sub

 

[Marc_du_78]

Je te remercie beaucoup slimsamfr et te souhaite une bonne fin de journée.