[Débutant] Problème d'écriture dans fichier Excel via VB.net

Salut à tous,

Je me remet au VB.net depuis peu.

J'essaye d'écrire dans un fichier Excel, mais je suis un poil perdu.

Voici le code :

Code:

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
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.IO.Compression
Imports System.IO
Imports System.Diagnostics
 
Public Class FRM_TEST
 
    Private Excel_APP As Excel.Application
    Private Excel_FEUIL As Excel.Worksheet
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '************************************************* ECRITURE DANS FICHIER EXCEL ***********************************************************
#Region "Test ecriture fichier Excel"
 
        Dim Excel_WBK As Excel.Workbook
        Dim Source As String = My.Computer.Registry.GetValue(CONF_REG, "FichierExcelFRAIS", Nothing)
 
        Excel_APP = New Excel.Application
 
        'Ouvre le fichier Excel choisi dans la config
        Excel_WBK = Excel_APP.Workbooks.Open(Source)
 
        Excel_WBK = Excel_APP.Workbooks.Add
 
        'Excel Visible
        Excel_APP.Visible = True
 
        'Choix de la feuille Global
        Excel_FEUIL = Excel_WBK.Sheets("Global")
 
        'Ecriture dans le fichier
        Excel_FEUIL.Range("A1").Value = "Test"
 
        'Sauvegarde
        Excel_WBK.SaveAs(Filename:="Essai_sauvegarde.xlsx", FileFormat:=51)
 
        'Ferme l'ensemble
        Excel_FEUIL.Close()
        Excel_WBK.Close()
        Excel_APP.Quit()
 
#End Region
 
    End Sub
 
End Class

Je ne vois pas où est le problème, l'erreur générée est :

Citation:

System.Runtime.InteropServices.COMException*: 'Index non valide. (Exception de HRESULT : 0x8002000B (DISP_E_BADINDEX))'

Auriez-vous une idée svp ?

Merci beaucoup.