désactiver une reference par vba

Pierrot93

XLDnaute Barbatruc

• 3 Octobre 2008

• #2

Re : désactiver une reference par vba

Bonjour Fred

peut être une solution alternative, plutôt que d'activer la référence MS access, créé via le code, l'objet Access. Ci dessous un exemple, à tester :

Code:

Dim x As Object
Set x = CreateObject("Access.Application")
'ton code
Set x = Nothing

A voir si cela peut t'être utile...

bon après midi
@+

Edition : Aarf, en y réfléchissant pas sur que cela fonctionne finalement....

 

Dernière édition: 3 Octobre 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Octobre 2008

• #3

Re : désactiver une reference par vba

Re,

sinon, pour répondre à la question, et supprimer la référence "Access" :

Code:

With ThisWorkbook.VBProject
    .References.Remove .References("Access")
End With

@+

Edition : code à placer dans le module "thisworkbook" (Excel) ou dans le module "thisdocument" (word) dans l'événement "open" de l'un ou de l'autre.

 

Dernière édition: 3 Octobre 2008

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 6 Octobre 2008

• #4

Re : désactiver une reference par vba

Bonjour Pierrot,

j'ai essayé les 2 solutions en vain :
la 1ere "tourne", mais ne "décoche pas la librairie"
La 2eme bugge sur "With ThisWorkbook.VBProject" (je ne comprend pas pourquoi...)

La 2eme me semble la plus proche de la résolution de mon pb.
j'ai essayé de la modifier.... en vain

si tu as une idée...

Merci d'avance.

Frédéric

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 6 Octobre 2008

• #5

Re : désactiver une reference par vba

Re bonjour,
ça y est j'ai réussi à ajouter une ref :

Sub Addref()
'ajoute une référence à la bibliothèque
On Error Resume Next
'nom et chemin de la bibliothèque
nomRef = "C:\Program Files\Fichiers communs\Microsoft Shared\DAO\Dao360.dll"
ThisWorkbook.VBProject.References.AddFromFile nomRef
End Sub

Par contre, pour la déselectionner, la macro suivante tourne mais ne la déselectionne pas..

Sub Supref()
'ajoute une référence à la bibliothèque
On Error Resume Next
'nom et chemin de la bibliothèque
nomRef = "C:\Program Files\Fichiers communs\Microsoft Shared\DAO\Dao360.dll"
ThisWorkbook.VBProject.References.remove nomRef
End Sub

si tu as une idée....
merci d'avance.

Frédéric

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Octobre 2008

• #6

Re : désactiver une reference par vba

Bonjour Fred

comprends pas trop chez moi ce code fonctionne (Excel 2003) :

Code:

With ThisWorkbook.VBProject
    .References.Remove .References("Access")
End With

bon après midi
@+

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 6 Octobre 2008

• #7

Re : désactiver une reference par vba

(Excel 2003) et PC comme toi, et ça bugge!
Ah les mystères de l'informatique(erreur de compilation su "remove": argument non facultatif)
Cdt
Frédéric

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Octobre 2008

• #8

Re : désactiver une reference par vba

Re,

tu as bien laissé l'espace entre ".remove" et ".reference"....

Code:

With ThisWorkbook.VBProject
    .References.Remove[COLOR="Red"][SIZE="4"][B]espace[/B][/SIZE][/COLOR].References("Access")
End With

bonne soirée
@+

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 17 Octobre 2008

• #9

Re : désactiver une reference par vba

Bonjour et merci pour ta réponse,

Effectivement, j'avais enlevé l'espace.....
Je vais essayer.


Frédéric

 

Vote positif 0 Vote négatif