Vb erreu rouverture excel

Bonjour,

Public Class Form1
    Private Sub Form1_Initialize()
        Dim xlpp As Object
        Dim xlSheet As Object
        Dim xlWorkBook As Object

        xlApp = CreateObject("Application Excel")
        xlWorkBook = xlApp.Workbooks.Open(Filename:="d:\retraite\retraite de Georges LAMBERT.xlsm")
        xlSheet = xlWorkBook.Sheets("Données principales")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        With xlApp
            '.EnableEvents = False
            '.Application.Visible = False
            '.DisplayAlerts = False
        End With
        'xlApp.Visible = True
        'xlSheet.activate
        Dim msgBoxResult = MsgBox(xlSheet.Range("A1").value)
    End Sub

Windows / Chrome 108.0.0.0