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
using Microsoft.Office.Interop.Excel;


 public Microsoft.Office.Interop.Excel.ApplicationClass oExcelApp;
        public Microsoft.Office.Interop.Excel.Workbooks oBooks;
        public Microsoft.Office.Interop.Excel.Workbook oBook;
        public Microsoft.Office.Interop.Excel.Worksheet oSheet;
        public void ExportVersExcel()
        {
            oExcelApp = null;
            oBooks = null;
            oBook = null;
            oSheet = null;
             // Créer l’objet Excel             oExcelApp = new Microsoft.Office.Interop.Excel.ApplicationClass(); 
            oExcelApp.Visible = true; // l’afficher  ou pas
            oBooks = oExcelApp.Workbooks; 
            //ouvrir le fichier Excel désiré 
            oBook = oBooks.Open(nomfichier, Missing.Value ,Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,Missing.Value,Missing.Value);
           // on active la feuille            oSheet = (Microsoft.Office.Interop.Excel.Worksheet)oExcelApp.ActiveSheet;
            // on active la feuille auto            oSheet = (Microsoft.Office.Interop.Excel.Worksheet)oExcelApp.Sheets.get_Item("auto");
             // lancement d' une macro            object ret = oExcelApp.Application.Run("macro1", Missing.Value, Missing.Value, Missing.Value,
                Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
                Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
                Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
                Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
                Missing.Value, Missing.Value, Missing.Value);
             ///trouver la fin du fichier (bricolage, faut pas qu'il y ai des cases vides)int i =1 ;
                        while (oSheet.get_Range("A" + i, "A" + i).Text != "")
                                {
                                    i++;
                                }
                    //ecrire dans le fichier                        oSheet.Cells.Cells[i, 1] = dateCommande;
//fermeture Propre d'excel
 oBook.Save();
            if (oBook != null) { oBook.Close(true, nomfichier, Missing.Value); }
            if (oSheet != null) {System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet); 
            oSheet = null; }
            if (oBook != null) {System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook) ;
            oBook = null; }
            if (oBooks != null) {System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks) ;
            oBooks = null; }
            if (oExcelApp != null) 
            { 
            oExcelApp.Quit();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcelApp); oExcelApp = null;