Chargement conditionnel d'une macro complémentaire

Avec vba, je voudrais charger automatiquement une macro complémentaire 'mesmacros.xla' à l'ouverture de CERTAINSclasseurs et la décharger à la fermeture de ces mêmes classeurs.

Si ta XLA est déjà présente dans la liste : Application.AddIns("Macro complémentaire").Installed = True En remplaçant par le nom apparaissant dans la liste quand tu fais Outils, Macros Complémentaires Sinon, il faut au préalable l'ajouter à la liste : Application.AddIns.Add ("C:\ otomacrocomp.xla") Une autre approche pourrait être de laisser ta macro complémentaire disponible en permanence (=cochée dans la liste de la boite de dialogue 'OutilsMacros complémentaires...'), et de la rendre disponible aux classeurs qui t'intéressent en établissant une référence vers cette macro à l'ouverture des classeurs voulus et en la supprimant à leur fermeture. Les bouts de code pour établir et supprimer une référence :

sub AjouteRéférence2()  'nom du classeur auquel renvoie la référence (à adapter):  '   "D:\

Auteurs : ,

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