charger une macro complémentaire [Résolu]

[issoram]

Bonsoir,


Plutôt que d'utiliser le

Code :

application.run

à chaque appel d'une fonction ou procédure de ma macro, j'aimerais la charger une fois pour toute.

J'ai essayé:

Code :

1
2
3
4
'On charge la macro complémentaire "Utils"
    If Application.AddIns("Utils").Installed = False Then
        Application.AddIns("Utils").Installed = True
    End If

Cependant quand j'appelle une fonction ou procédure appartenant au fichier Utils.xlam, l'interpéteur me signale qu'elle n'est pas définie.

Comment remédier à ce problème?

Merci d'avance

[jfontaine]

Bonjour,

Comme cela, ça devrait fonctionner

Code :

If AddIns("Utils").IsOpen = False Then AddIns("Utils").Installed = True

[issoram]

Merci, JFontaine mais la méthode isOpen ne fonctionne pas pour l'objet Addins (en tous cas pour ma version d'Excel (2007))

En fait quand je lance une fonction le

Code :

AddIns("Utils").Installed

est bien à TRUE.

C'est peut être tout simplement dans la syntaxe de l'appel que je me trompe.
Je fais juste

Code :

mafonction(mes arguments)

Est ce qu'il faut préfixer avec un "Utils!" ou autre chose?

Cordialement.

[jfontaine]

Il semblerait que cette propriété ait été ajouté sur excel 2010

comme cela ca fonctionne sur mon poste en excel 2003

Code :

1
2
3
4
5
6
7
Dim Myaddin As AddIn
 
For Each Myaddin In Application.AddIns
    If Myaddin.Name = "Utils.xlam" Then
        Myaddin.Installed = True
    End If
Next

[issoram]

Le problème ne venait pas du chargement du fichier xlam mais bien de la syntaxe d'appel de la fonction.

Je pensais qu'on pouvait se passer des Application.run en chargeant la macro complémentaire mais à priori non!

Code :

1
2
3
4
5
If Application.AddIns("Utils").Installed = False Then
     Application.AddIns("Utils").Installed = True
End If
mafonction(arguments)  'mauvaise syntaxe 
Application.run("mafonction",arguments)  'syntaxe correcte

Bonne journée.