Add-in ne se lance pas par VBA

[canidesign]

Bonjour,

J'ai un fichier Excel dans lequel j'ai intégré un add-in développé par une autre personne.

Quand j'ouvre le fichier Excel "normalement" (avec la souris), l'Add-in effectue un certain traitement donné (connexion au serveur...) par contre quand j'ouvre le fichier avec un code VBA, le traitement sensé se faire ne s'effectue pas alors que dans mon application je suis intéressé par une ouverture automatique.

Voici le code que j'utilise pour ouvrir le fichier Excel :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub OpenACSEaddin()
    Dim Path As String
    Dim App As Excel.Application
 
    Path = "C:\Documents and Settings\y042811\Desktop\New Folder\book.xlsx"
 
    Set App = CreateObject("Excel.application")
    App.Workbooks.Open (Path)
    App.Visible = True
End Sub

J'ai essayé de "forcer" l'Add-In avec le code suivant mais sans succès :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Sub OpenACSEaddin2()
    Dim S As String, Path As String
    Dim App As Excel.Application
    Dim Add As AddIn
 
    Path = "C:\USERS\Book.xlsx"
    S = "C:\HOMEWARE\ACS\Framework\ACSEEngine.xla"
 
    Set App = CreateObject("Excel.application")
    App.Workbooks.Open Path
    App.Visible = True
 
    Set Add = App.Application.AddIns.Add(S, True)
    Add.Installed = True
 
End Sub

Quelqu'un aurait une idée d'où vient le problème ?

Merci.

[bbil]

Pour ton deuxième code ce qu'il me semblerait logique c'est d'ajouter l'Addin avant d'ouvrir ton classeur ..(et non pas après...) , peu-tu essayer de changer l'ordre d'ouverture..

juste pour info ton code VBA s'exécute dans qu'elle application ?

[canidesign]

Envoyé par bbil

Pour ton deuxième code ce qu'il me semblerait logique c'est d'ajouter l'Addin avant d'ouvrir ton classeur ..(et non pas après...) , peu-tu essayer de changer l'ordre d'ouverture..

juste pour info ton code VBA s'exécute dans qu'elle application ?

Merci bbil pour ta réponse.

J'ai inversé le code comme tu as dit mais je reçois l'erreur : 1004 Unable to Get to the Add Property of the Addins Class

Pour info mon code s'exécute sous Access.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Sub OpenACSEaddin2()
    Dim S As String, Path As String
    Dim App As Excel.Application
    Dim Add As AddIn
 
    Path = "C:\USERS\Book.xlsx"
    S = "C:\HOMEWARE\ACS\Framework\ACSEEngine.xla"
 
    Set App = CreateObject("Excel.application")
 
    Set Add = App.Application.AddIns.Add(S, True)
    Add.Installed = True
 
    App.Workbooks.Open Path
    App.Visible = True
 
End Sub

Quelqu'un aurait une idée ? Merci

[Arkham46]

bjr,

pensez au support microsoft, il y a peut-être la solution ici :
http://support.microsoft.com/kb/213489

il faut apparemment demandé en plus l'exécution des macors automatiques (cf RunAutoMacros)