Discussion :

[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 :

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
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" ?

[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 :

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

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