Private Sub Import_bank_Click()
Dim oXL As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim numFields As Integer
Dim numRows As Integer
Dim curField As Integer
Dim curRow As Integer
Dim fichier As String
chemin = ActiveWorkbook.Path
Application.DisplayAlerts = False
Worksheets("Bank_Import").Activate
fichier = Cells(8, 3).Value
fichier = chemin & "\Extractions banque\" & fichier
Set oXL = CreateObject("Excel.Application")
oBook = oXL.Workbooks.Open(Filename:=fichier, Notify:=False)