Discussion :

[Carmiel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Carmiel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.