[XL-2010] [C#][VS2010-W7][Automation] Problème d'accès pour l'ajout d'un module VBA [Résolu]

[Chtulus]

Bonjour,

Je vais essayer de faire court....
[Windows 7, Visual Studio (VS) 2010 et Excel 2010]

Sous VS2005 et Access2003, je n'ai eu aucun soucis pour ajouter un module avec une sub() puis la lancer depuis un programme C#.

J'ai modifier un peu le code sous VS 2010 avec Excel 2010.

Et là je suis quasi sûr à 98% qu'il s'agit d'un problème de droit d'accès :

A l'ajout de la ligne pour créer le nouveau module je tombe en Exception.

Voici un exemple de code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
                    //
                    // Ajout d'un nouveau module.
                    oModule = app.ThisWorkbook.VBProject.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule);
                    // Création de la macro
                    sCode =
                    "Sub Position_graph()\r\n" +
                    "'\r\n" +
                    "' Position_graph Macro\r\n" +
                    "' Macro enregistrée le 10/02/2012 par Chtulus\r\n" +
                    "'\r\n" +
                    "'\r\n" +
                    "'\r\n" +
                        "ActiveSheet.ChartObjects(\"Graphique 1\").Activate\r\n" +
                        "ActiveChart.ChartArea.Select\r\n" +
                        "ActiveSheet.Shapes(\"Graphique 1\").ScaleWidth 1.5, msoFalse, _\r\n" +
                            "msoScaleFromBottomRight\r\n" +
                        "ActiveSheet.Shapes(\"Graphique 1\").ScaleHeight 1.5, msoFalse, _\r\n" +
                            "msoScaleFromBottomRight\r\n" +
                        "ActiveSheet.Shapes(\"Graphique 1\").ScaleWidth 0.8, msoFalse, _\r\n" +
                            "msoScaleFromTopLeft\r\n" +
                        "ActiveSheet.Shapes(\"Graphique 1\").ScaleHeight 0.8, msoFalse, _\r\n" +
                            "msoScaleFromTopLeft\r\n" +
                    "End Sub";
                    // Ajout de la macro dans le module
                    oModule.CodeModule.AddFromString(sCode);

L'exception COM ne parle jamais beaucoup malheureusement !

{"Exception from HRESULT: 0x800A03EC"}

J'ai tenté une connexion avec le compte "Administrateur" (Il a moins de droit que mon compte sur mon poste Oo) mais dans ce cas je ne peux écrire dans une feuille, je tombe en exception direct (Si, si)) ou de modifier les propriétés Excel rien ni fait !

Je rajoute que pour écrire ou utiliser des Objets sur les feuilles avec mon compte perso il n'y a pas de soucis (Contrairement au compte Admin, donc je dois être Super Admin en plus ).
C'est juste un problème d'accès pour moi.

J'ai surfer sur le Net hier soir mais y'a tout et rien, soit je fatigue, soit je fatigue

Qu'est-ce que j'ai zappé ?

Merci par avance,
Cordialement,

[jfontaine]

Bonjour,

A tout hasard, as tu essayé en cochant l'option "Accès approuvé au modèle d'objet du projet VBA" ?
Nouvelle image (1).jpg

[Chtulus]

Bonjour jfontaine,

Je vais voir comment taper cette fonctionnalité en C# mais merci

Tout doit être automatisé pour des traitement nocturne.

J'ai juste besoin d'idées ! Je testerais cette aprem, voir dans ce sens !

Cordialement,


Ps : Je voulais dire que c'est du C# du début à la fin donc....

[jfontaine]

Tu ne peux pas automatiser cette option, il te fait l'activer sur le poste. (option de sécurité)

[Chtulus]

Merci,

J'ai déjà tenté les options de sécurités !

Rien de mieux !

[BlueMonkey]

Bonsoir,

Juste pour être sûr que toute les options de sécurité ait bien été configuré voir :
Programmation d'accès au projet VBA de Office est refusé
Cette configuration doit être fait sur le projet VBA du fichier Excel utilisé en C#

Sinon pour avoir plus d'information sur l'exception, est ce qu'il est possible de capturer l'exception et d'afficher la pile d'appel ?

Code :

1
2
3
4
5
6
7
try
{
     //le code qui plante
}catch(Exception e)
{
   MessageBox.Show("Exception " + e.Message + " Stack Trace: " +  e.printStackTrace());
}

[Chtulus]

Merci pour vos réponses !

@BlueMonkey :
- Je vais regarder ton lien !

- En pj l'exception levée !

[BlueMonkey]

Bonjour,

En regardant le détail de l'exception, il me semble que ça plante déjà sur la récupération du classeur ThisWorkbook.

Est-ce qu'il y a bien un classeur Excel ouvert (pas juste l'application Excel lancée) ?

Et en fait en VBA ThisWorkbook est déjà un module existant par défaut pour chaque classeur.
Je ne connais pas la syntaxe exacte en C#, mais si dans la ligne de commande app désigne Excel,
je dirais que ça devrait s'écrire plutôt comme ça :

Code :

oModule = app.ActiveWorkbook.VBProject.VBComponents.Add(...);

ou

Code :

app.Workbooks("<nom du classeur XLS>").VBProject.VBComponents.Add(...);

[Chtulus]

Bonsoir,

Merci @BlueMonkey, c'était ça, pffff !
Programmation d'accès au projet VBA de Office est refusé.

Ça marche impeccable maintenant,
Cordialement,

[BlueMonkey]

Bonsoir,

Si le problème venait de la "Programmation d'accès au projet VBA de Office",
Jfontaine avait trouver le problème post #2.
Le lien donné plus loin ne donnait que des explications pour la configuration.

Quoiqu'il en soit content de voir que ce problème est résolu.