Ouvrir et fermer une macro complémentaire en même temps qu'un fichier.

J'ai mis un tas de macros dans un xla vers lequel pointe une référence de mon fichier de travail. La xla s'ouvre en même temps que le classeur contenant la référence mais ne se ferme pas à la fermeture du classeur. Comment faire ?

sub AjouteRéférence()
 'nom du classeur auquel renvoie la référence :
 '   "D:\OfficeVBA\Progs\ProtectUnprotect\Protege.xla"
 'nom du projet VBA de ce classeur :
 '   "Protege(Protege.xla)"
 
  ThisWorkbook.VBProject.References.AddFromFile _
    "D:\OfficeVBA\Progs\ProtectUnprotect\Protege.xla"
 end sub
sub EnleveReferenceEtFerme()
 With ThisWorkbook.VBProject.References
  .Remove .Item("protege")
 End With
 Workbooks("protege.xla").Close
 end sub

La première procédure peut être appelée à l'ouverture, la seconde à la fermeture. Attention aux nuances dans les noms passés aux différentes méthodes... Le VBAProjet de ta macro xla doit absolument avoir un nom différent de VBAProject(nom par défaut qui renvoie en fait au perso.xls et provoque une erreur).

Auteur :

Mots clefs associés à cette page : , , , , ,