Discussion :

[Ashireon]

Bonjour,

J'ai ce problème ci lorsque je tente de creer un fichier excel.
System.InvalidCastException*: 'Impossible d'effectuer un cast d'un objet COM de type 'Microsoft.Office.Interop.Excel.ApplicationClass' en type d'interface 'Microsoft.Office.Interop.Excel._Application'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{000208D5-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante*: Erreur lors du chargement de la bibliothèque/DLL du type. (Exception de HRESULT : 0x80029C4A (TYPE_E_CANTLOADLIBRARY)).'

J'ai beau chercher sur le net je vois que c'est un soucis récurrent.
Ce que j'ai fait :
désinstaller office
Nettoyer la base de registre
Nettoyer le projet
redemarrer
Reinstallation Office.
Ajouter la DLL dans les reference.. et ca replante ou c'est mon code qui est pourri.

Excel version 64 bits compilation idem.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
using Excel=Microsoft.Office.Interop.Excel;
.
.
.
 
 
  Excel.Application Exl = new Excel.Application();
 
         var Wb =(Excel.Workbook)Exl.Workbooks.Add(); <--- La Ligne de plantage
            var ws = (Excel.Worksheet)Exl.Worksheets.Add();

Merci

[popo]

Déjà, il faut placer les parenthèse correctement lorsque tu fait un cast.
Et ne faire un cast que si c'est nécessaire.

var Wb =(Excel.Workbook)Exl.Workbooks.Add(); va tenter de convertir ton objet Exl (qui est de type Excel.Application) en Excel.Workbook.
Ce qui est bien entendu, impossible.
Et même si cela fonctionnait, Excel.Workbook ne possède pas de méthode Add().

Donc pour cette ligne :

Code :

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

Excel.Workbook Wb = Exl.Workbooks.Add();

Pour le reste, il faut lire la documentation
https://docs.microsoft.com/fr-fr/dot...nterop-objects
https://docs.microsoft.com/fr-fr/off...cation(object)
https://docs.microsoft.com/fr-fr/off...xcel.workbooks
https://docs.microsoft.com/fr-fr/off...excel.workbook
https://docs.microsoft.com/fr-fr/off...cel.worksheets
https://docs.microsoft.com/fr-fr/off...xcel.worksheet

Edit :
Sinon, te passer d'Excel et passer par des librairies comme OpenXml ou encore ClosedXml (qui encapsule OpenXML).

[Ashireon]

Bonjour Popo,
Merci de ton aide mais cela ne fonctionne toujours pas la fin de l'erreur me guide vers un soucis avec la interop.excel pourtant bien ajouter dans le projet sinon j'aurai d'autre erreur ailleurs.

System.InvalidCastException*: 'Impossible d'effectuer un cast d'un objet COM de type 'Microsoft.Office.Interop.Excel.ApplicationClass' en type d'interface 'Microsoft.Office.Interop.Excel._Application'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{000208D5-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante*: Erreur lors du chargement de la bibliothèque/DLL du type. (Exception de HRESULT : 0x80029C4A (TYPE_E_CANTLOADLIBRARY)).'


Je vais essayer ta solution avec la librairie openXMl.

ce sont des aides trouver en ligne souvent mes bouts de codes, je réinvente pas le fil a coupé le beure mais parfois ca date dans les forums ce n'est plus d'actualités.

[popo]

L'erreur est pourtant claire :

Erreur lors du chargement de la bibliothèque/DLL du type

Soit tu n'as pas Excel d'installé ou mal (indispensable pour l'interop), et dans ce cas il vaut mieux te tourner vers OpenXml.
Soit ta version d'Excel n'est pas compatible avec la version de la librairie d'interop que tu utilises.

Je vois que tu as décidé de te tourner vers OpenXML.
Un fichier Excel est vraiment très complexe et tu risques d'être un peu perdu au début.
Mais c'est selon moi un choix que tu ne regretteras pas.

Et si vraiment tu trouves cela trop complexe, essaie la librairie ClosedXml.
Elle encapsule et simplifie l'utilisation de Open XML pour Excel.
Tu ne pourras faire des choses avancées comme créer une macro à la volée.
Mais elle est largement suffisante pour couvrir les besoins classiques.

[Ashireon]

Bon j'ai essayé avec OpenXml mais c'est plutot Complexe

J'essaie avec Closed Xml mais la j'ai une erreur bizarre du a openxml

J'ai désinstallé le nuget openxml enlever la référence enlever tous les using et mes bouts de code pourtant il me demande openxml...

System.IO.FileNotFoundException*: 'Impossible de charger le fichier ou l'assembly 'DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17' ou une de ses dépendances. Le fichier spécifié est introuvable.'

alors que je n'ai plus openxml dans ma Form....


Trouvé je dois laisser les 2 closed depend de open et les 2 doivent être installés et déclaré dans les ref.

Par contre j'ai un fichier vide pour le moment

[Ashireon]

J'arrive a construire mon fichier excel de sorti avec ClosedXml.
J'ai du modifier des paramètres dans Excel soucis d'ouverture de fichier en double clique donc je pense de ce fait interop deconne aussi.

Merci popo
Closed xml top datatable direct en table xls c'est cool.
Je regarde si on peut exporter un graphique egalement.

[wallace1]

Bonjour,
Il existe egalement la librairie EPPlus que j utilise depuis longtemps et le résultat est très satisfaisant pour ma part :

https://github.com/EPPlusSoftware/EPPlus

Bon codage.

[François DORIN]

Une remarque sur EPPlus. Très bonne bibliothèque, mais qui n'est plus libre depuis la version 5. Elle est passée de la LGPL à une licence non commercial. Donc utilisation autorisée dans un cadre hors commercial, nécessitant une licence autrement.

[Ashireon]

Ca m'irait,
C'est pour gérer des mesures stockées sur mysql avec une petite interface maison et sortir un rapport au format Xls ou pdf pour le service Qualité en cas de non conformité.
sur le soft je peux visualiser sur mon chart une pièce ou comparer sur l'ensemble du lot de production ( voir si il y a une dérive). Et ensuite je fais un rapport Auto si besoin.

Merci je vais regarder cette librairie.

[Ashireon]

Bonjour,
donc du coup j'utilise Epplus et je suis un peu casse bonbons car je veux faire quelque chose qui me plait . et donc je souhaiterai ajouter une macro dans la feuiil1 lors de la sélection d'une cellule ou j'ai intégré un dropdown.(cellule deroulante).
le choix de la liste déroulante permettrait de mettre en gras la série dans le chart affiché.
Ecrire en VBA me pose pas de soucis en particulier mais c'est comment l'injecter via Epplus.

J'ai trouvé ceci

Code :

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

1
2
3
4
5
6
 
Exp.Workbook.CreateVBAProject();
     var module = Exp.Workbook.VbaProject.Modules.AddModule("Module1");
     module.Code = "Sub countMacro()\r\n" +
     " ... Place Code Here ..." +
      " \r\nEnd Sub\r\n";

mais c'est pour ajouter un module et non pour ajout sur un évènement de la feuille selectionChange


Cdt

[popo]

Ceci semble répondre à ton besoin.
https://github.com/EPPlusSoftware/EP.../master/21-VBA

En résumé :

Code :

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

1
2
3
4
ExcelPackage pck = new ExcelPackage();
pck.Workbook.CreateVBAProject();
pck.Workbook.CodeModule.Code = 'Ceci est du VBA';
pck.SaveAs(Chemin);

[Ashireon]

Bonjour Popo,

C'est a peu pres ce que j'ai trouvé sauf que ca me pose un soucis ca creer un code de type module.
J'aurai besoin d'acceder au code VBA reservé a la feuille.
Dans excel quand tu vas dans visual basic tu as deja des zones reservées pour chaque feuilles que tu cree un peu comme des formulaires winforms dans Visual Studio avec des actions ou tu peux coder des macros specifiques

Code :

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

1
2
3
4
5
6
 
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

Et c'est la dedans que je souhaite integré mon code.

si je fais un module je pourrais a la rigueur lié le code dans une combobox ( de type Contrôle ActiveX) mais j'ai pas trouvé comme généré un objet de ce type avec Epplus.

Merci

[popo]

C'est pourtant noté dans le lien que je t'ai donné.

Fichier WorkingWithVbaSample.cs :
Ligne 102
Création de la feuille (ça fonctionnera aussi si tu lis une feuille existante) :

Code :

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

var ws = pck.Workbook.Worksheets.Add("Battleship");

Ligne 132 :
Code VBA lié à la feuille.

Code :

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

ws.CodeModule.Code = GetCodeModule(codeDir, "BattleshipSheet.txt");

[Ashireon]

Re donc oui je peux ajouter du code dans la feuille existante j' ai testé de la manière suivante

Code :

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

1
2
 
Wsh.CodeModule.Code = "Private Sub Worksheet_SelectionChange(ByVal Target As Range) \r\n End Sub";

Et ca fonctionne j'ai une procédure vide qui se crée a tester plus en profondeur.
Par contre on peut créé une combobox de type Active X et lui coller une macro? car sur l'evenement selection change il va me lancer la macro sur tous les clics de cellules et tester l'adresse d'ou lourd a l'utilisation et risque de gros ralentissements pour rien?

En tout cas Merci

[popo]

Je n'ai jamais essayé mais tu devrais pouvoir créer ta combo en VBA.

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CreateComboBox1()
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
                Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, _
                Height:=15)
        With .Object
            .AddItem "Date"
            .AddItem "Player"
            .AddItem "Team"
            .AddItem "Goals"
            .AddItem "Number"
        End With
    End With
End Sub

[Ashireon]

donc tu contournerai le soucis Epplus au lieu de créer une combobox avec celui ci tu injecterai un code pour le construire a la volée lors de l'ouverture du fichier.
Pas mal comme idée.
Je vais tenté l'idée ca me plait bien.

[Ashireon]

Merci popo ca fonctionne de cette manière du coup

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
 
                    const string quote = "\"";
                    Exp.Workbook.CreateVBAProject();
                    var module = Exp.Workbook.VbaProject.Modules.AddModule("Module1");
 
                    Exp.Workbook.CodeModule.Code = " Private Sub Workbook_Open() \r\n"+
                        "CreateComboBox1 \r\n" +
                        "End Sub \r\n";
 
 
                    module.Code = "Sub CreateComboBox1() \r\n" +
                        " With ActiveSheet.OLEObjects.Add(ClassType:=" +quote+"Forms.ComboBox.1"+ quote +", _ \r\n" +
                        "Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, Height:=15 )\r\n" +                        
                        "With .Object \r\n" +
                        ".AddItem " + quote +"Date"+ quote +" \r\n" +
                        " End With \r\n" +
                        " End With \r\n" +
                        " End Sub \r\n";

je vais y intégrer mon code.

[Ashireon]

Bon j'ai réussi a faire ce que je souhaitais je te remercie popo de ta clairvoyance

pour info

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
                    const string quote = "\"";
                    Exp.Workbook.CreateVBAProject();
                    var module = Exp.Workbook.VbaProject.Modules.AddModule("Module1");                   
 
                    Exp.Workbook.CodeModule.Code = " Private Sub Workbook_Open() \r\n"+
                        "CreateComboBox1 \r\n" +
                        "End Sub \r\n" +
                        " \r\n  \r\n" +
                        "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) \r\n" +
                        " Cancel = True \r\n" +
                        "End Sub \r\n" +
                        " \r\n  \r\n" +
                        "Private Sub Workbook_BeforeClose(Cancel As Boolean) \r\n" +
                        "Application.ThisWorkbook.Saved = True \r\n"+
                        "End sub \r\n";
 
 
                    module.Code = "Sub CreateComboBox1() \r\n" +
                        " With ActiveSheet.OLEObjects.Add(ClassType:=" +quote+"Forms.ComboBox.1"+ quote +", _ \r\n" +
                        "Link:=False, DisplayAsIcon:=False, Left:=35, Top:=120, Width:=100, Height:=20 )\r\n" +
                        "Dim DerniereColonne as integer \r\n" +
                        "DerniereColonne=ActiveSheet.range(" + quote + "F2"+ quote + ").end(XlToRight).column\r\n"+
                        "With .Object \r\n" +
                        "Dim X as integer  \r\n" +
                        "Dim Pieces as string \r\n" +
                        "For X = 6 to DerniereColonne\r\n"+
                        "ActiveSheet.Range("+ quote +"F2" +quote +").offset(,X-6).Select \r\n" +
                        "Pieces = Selection.Value \r\n"+
                        ".AddItem Pieces\r\n" +
                        "next \r\n" +
                        " End With \r\n" +
                        " End With \r\n" +
                        " \r\n End Sub \r\n";
 
                    Wsh.CodeModule.Code = "Private Sub Combobox1_Change() \r\n"+
                        " Dim nserie As String \r\n" +
                        " nserie = ComboBox1.Value \r\n" +
                        " ActiveSheet.ChartObjects("+quote+"MesuresChart"+quote+").Activate\r\n" +
                        "Dim ser1 As Series \r\n" +
                        "For Each ser1 In ActiveChart.FullSeriesCollection() \r\n" +
                        " ser1.Select\r\n" +
                         " With Selection.Format.Line \r\n" +
                        "If ser1.Name = nserie Then \r\n" +
                       " .Visible = True\r\n" +
                        ".Weight = 4 \r\n" +                        
                        " Else \r\n"+
                        " .Visible = True\r\n" +
                        ".Weight = 1 \r\n" +
                        " End if \r\n" +
                        " End With \r\n"+
                        " Next ser1 \r\n" +
                        "  ActiveChart.FullSeriesCollection(nserie).Select \r\n" +
                        " End Sub";
                    Exp.Workbook.Properties.Comments = "Fichier Généré par l'application";

Je mets en resolu