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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :
Quelqu'un aurait une idée d'où vient le problème ?
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
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
Merci.
Partager