Macro complémentaire excel se bloque à l'activation

Bonjour,
J'appelle une feuille excel depuis du VBA access avant d'importer des données.
Dans ma feuille j'utilise le jeu de macros complémentaires Morefunc.
Il se trouve que les macro complémentaires ne sont pas activées par cette méthode et que perso.xls qui contient l'activation n'est pas chargé. Soit, dans mon code j'active. Mais comme l'activation en premier ne fonctionne pas il me faut désactiver puis activer.
Problème régulièrement la désactivation bloque excel. si je stoppe le process et relance cela passe.
Je ne sais pas d'où vient cette anomalie, avez-vous une idée ?
Ci-dessous le bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' Je boucle sur toutes les macro complémentaires pour chercher morefunc For Each xlAddin In xlApp.AddIns MacroComplémentaire = xlAddin.Name If Left(xlAddin.Name, 8) = "Morefunc" Then MacroComplémentaire = xlAddin.Title ' Je décharge la macro complémentaire et la recharge, bizarre mais sans cela ne marche pas xlApp.AddIns(MacroComplémentaire).Installed = False xlApp.AddIns(MacroComplémentaire).Installed = True Exit For End If Next

---

Je précise que je constate en access 2003, pas encore vu en 2007, mais ce n'est pas dit que cela n'existe pas aussi.

Merci d'avance pour l'aide

Je me réponds à moi-même, au cas où la réponse intéresse quelqu'un d'autre.
En fait en rendant la feuille visible pour débugger je me suis aperçu que l'option "macro complémentaires" était grisée. Et pour cause, le classeur n'était pas encore chargé lorsque je désactivais/activais la macro morefunc.
Donc maintenant je créé un classeur vide avant et cela marche.
Le code donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set xlApp = New Excel.Application Workbooks.Add   ' Je boucle sur toutes les macro complémentaires pour chercher morefunc For Each xlAddin In xlApp.AddIns MacroComplémentaire = xlAddin.Name If Left(xlAddin.Name, 12) = "Morefunc.xll" Then MacroComplémentaire = xlAddin.Title ' Je décharge la macro complémentaire et la recharge, bizarre mais sans cela ne marche pas xlApp.AddIns(MacroComplémentaire).Installed = False xlApp.AddIns(MacroComplémentaire).Installed = True FlagxlAddin = True Exit For End If Next

---

Ceci dit je ne comprends pas pourquoi le fait de stopper brutalement Excel me permettait de passer au coup suivant.
Je suppose (sans l'avoir vérifié) qu'après un kill du process EXCEL.EXE il propose la récupération du classeur et pour cela ouvre une feuille vierge, donc dégrise l'option.