Message d'erreur sur ouverture Workbook Excel

Version imprimable

1 pièce(s) jointe(s)

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:

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()" :

Pièce jointe 428356

Voyez vous quelque chose qui ne va pas ?

Merci d'avance pour votre aide.

Cordialement-

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

Code:

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

...

Merci Phil Rob,

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

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-

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

Code:

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-

27/11/2018, 18h20
__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