Discussion :

[Shennong]

Bonjour tout le monde,

J'aimerai un peu d'aide quant à un message d'erreur.

Je souhaite utiliser un fichier excel pour le modifier via VB.NET. À cette fin, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
 Dim APP As New Microsoft.Office.Interop.Excel.Application
            Dim workbook As Microsoft.Office.Interop.Excel.Workbook
            Dim worksheet As Microsoft.Office.Interop.Excel.Worksheet
 
            workbook = APP.workbook.Open(Principal.txt_source.Text)
 
            worksheet = workbook.Worksheets(0)

En ayant bien pensé au 'Imports Microsoftt.Office.Interop.Excel', avec l'ajout de référence qui va bien.


Seulement, j'ai l'erreur suivante à la ligne "workbook = APP.workbooks.Open()" :



Voyez vous quelque chose qui ne va pas ?

Merci d'avance pour votre aide.

Cordialement-

[Phil Rob]

Voici le code que j'utilise pour accéder à une feuille Excel (QUI N'EST PAS DEJA OUVERTE !!!).
Compare avec le tien.

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
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class FBase
 
    Dim WithEvents XLSAPP As Excel.Application = Nothing  'Seulement si on veut suivre certains événement générés par Excel
    ' Dim XLSAPP As Excel.Application = Nothing
 
    'La feuille Excel n'est pas ouverte
    Private Sub BExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BExcel.Click
        XLSAPP = New Excel.Application
        XLSAPP.Visible = True
        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Test.xls")  'ouvir le fichier XLS
 
        ' Il est possible de programmer en VB ce qu'on ferait en Macro
        XLSAPP.Range("C4").Select()                 'sélectionner une cellule

...

[Shennong]

Merci Phil Rob,

En m'inspirant de ton code j'ai pu écrire celui-ci qui fonctionne nickel !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim excelApp As Application
            Dim wb As _Workbook
            Dim ws As _Worksheet
 
            'Rechercher les codes PSV à supprimer dans le fichier source et les supprimer
            excelApp = New Application
            excelApp.Visible = False
            excelApp.ScreenUpdating = False
 
            wb = excelApp.Workbooks.Open(Principal.txt_source.Text)
            ws = wb.Worksheets(1)

En revanche après mes modifications, que dois-je mettre si je veux sauvegarder le fichier utilisé, mais sans qu'il y ait une demande de confirmation, puisqu'il doit être écrasé ?

Et pour le fermer le processus EXCEl dans le gestionnaire des tâches, un "excelApp.quit()" semble ne pas suffire. Tu aurais une idée ?

Merci encore

Cordialement-

[Shennong]

Pour fermer EXCEL.exe qui traine toujours dans le Gestionnaire de tâches :

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
     excelApp.Quit()
 
                System.Runtime.InteropServices.Marshal.ReleaseComObject(ws)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(wb)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
 
                excelApp = Nothing 'Instanciait l'application
                wb = Nothing 'Instanciait le workbook
                ws = Nothing 'Instanciait le worksheet
 
                'Utiliation du GarbageCollect
                GC.Collect()
                GC.WaitForPendingFinalizers()
                GC.Collect()
                GC.WaitForPendingFinalizers()
                GC.Collect()

Voilà, si ça peut en aider d'autres.

Cordialement-

[__bv__]

Bonsoir
Shennong, y a t-il une raison pour invoquer le Garbage Collector plusieurs fois ?
Aussi, est il nécessaire pour les objets WB et WS ou est-ce que c'est suffisant au niveau de l'appli qui est l'objet COM a priori ?
Merci d'avance
Bruno