Bonjour a tous!

Je ne suis pas nouveau avec les maniulation excel par VB.net mais là j'ai un problème douteux depuis que j'ai passé mon programme à la version 2017....j'ai du réécrire plusieurs lignes
ont les lignes concernant Excel...j'ai cette erreur quand j'essais d'ajouter des données dans les cellules : Le membre public 'Range' du type 'Boolean' est introuvable.

Voici mon code:

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
Option Explicit On
Imports System.IO
Imports Office = Microsoft.Office.Core
Imports Microsoft.Office.Interop.Excel
 
Public Class Save
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim fileName1 As String = My.Settings.Doc
        Dim SP As String = My.Settings.SavePath
 
        Dim oExcel As Object = CreateObject("Excel.Application")
        Dim oBook As Object = oExcel.Workbooks.Open(fileName1, ReadOnly:=False)
        Dim oSheet As Object = oBook.Worksheets("Feuil1").Activate()
 
        oSheet.Range("A2").Value = Main.TextBox1.Text
 
        oBook.saveas(SP, "Book1.xlsx")
        oExcel.Quit()
 
    End Sub
End Class