Ouvrir un fichier .xls avec vb6

Sub LireExcel()

        Dim Fichier, oFS, xlApp, xlBook, xlWks, xlRange as Variant

        Fichier = "C:\Temp\MonFichier.xls"
        ' Création de l'objet Excel (une classe)
        Set oFS = CreateObject("Scripting.FileSystemObject")
        Set xlApp = CreateObject("Excel.Application")
        ' Vérification de la présence du classeur
        If (FichierExistant(Fichier) = True) Then
            ' Ouverture du classeur
            Set xlBook = xlApp.Workbooks.Open(Fichier)
            Flag = True
        Else
            ' Création du classeur
            xlApp.SheetsInNewWorkbook = 1
            Set xlBook = xlApp.Workbooks.Add
        End If
        ' Positionnement à l'intérieur du classeur
        Set xlWks = xlBook.Worksheets(1)
        Set xlRange = xlWKS.Range("A1:A65535")

        ' Écrire
        xlRange.Cells(1,1).Value = "Lupin"

        ' Lire
        Msgbox xlRange.Cells(1,1).Value

End Sub
'

Function FichierExistant(NomFichier)

    Dim fso

    Set fso = CreateObject("Scripting.FileSystemObject")
    FichierExistant = fso.FileExists(NomFichier)
    Set fso = Nothing

End Function
'