Private Sub Maj_BDD_Click()
'Mise à jour Base (Base_Trot)
'Microsoft ActiveX DataObject doit être coché
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" _
& ThisWorkbook.Path & "\" & "Récup-htm-1304.xls"
Set rs = cnn.Execute("[A1:L300]")
[A2:L300] = Application.Transpose(rs.GetRows)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub