Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

[un internaute]

Bonjour le forum,
Est-il possible de mémoriser Microsoft Visual Basic For Applications Extensibility 5.3?
Je coche dans un classeur vierge mais il disparaît ensuite.
Oui je sais il faut créer un classeur perso mais je voudrais si c'est possible une autre astuce.
Merci d'avance
Bonne journée à vous tous
Cordialement

 

[MJ13]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Bonjour UnInternaute

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

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

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Bonjour UnInternaute

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

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

Bonjour MJ13,
Merci pour ton code
A mettre dans un module standard?
Supprimer les commentaires?
A+
cordialement

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Bonjour MJ13,
Mettre dans un module standard?
Enlever les commentaires?
Merci
A+
Bien cordialement à toi

 

[MJ13]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

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.

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

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.

Ok j'avais bien compris ça.
Encore merci et bonne journée
Bien cordialement

 

[MJ13]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Re

Par contre, pense à nous donner la solution 🙂.

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Re

Par contre, pense à nous donner la solution 🙂.

Bonsoir MJ13,
Après réflexion et compte tenu que je le coche lorsque mon fichier le nécessite j'en reste là pour l'instant.
Donc merci à tous pour vos réponses.
Bonne fin de soirée
Cordialement à vous tous

 

[MJ13]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

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

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

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

Bonjour MJ13,
Le premier fonctionne nickel.
Je te remercie pour ton aide. Très gentil de ta part.
Je te souhaite une bonne journée
Bien cordialement


Ps: On ne peut pas mettre résolu?
Pas vu

 

[MJ13]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Re

Pour le résolu, tu édites ton premier message et tu modifies le titre en rajoutant [résolu].

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3 Résolu

Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3 [Résolu]

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3[Résolu]

Bonjour le forum,
Est-il possible de mémoriser Microsoft Visual Basic For Applications Extensibility 5.3?
Je coche dans un classeur vierge mais il disparaît ensuite.
Oui je sais il faut créer un classeur perso mais je voudrais si c'est possible une autre astuce.
Merci d'avance
Bonne journée à vous tous
Cordialement

 

[MJ13]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Re

Workbook_open

 

[un internaute]

Re : Mémoriser Microsoft Visual Basic For Applications Extensibility 5.3

Re

Workbook_open

C'est à dire?