Corrigé 16.10 Importer certains champs d’une table Access (avec ADO)

Sub ImportEnrBDADOdansExcel()  
  Dim cn As ADODB.Connection 
  Dim rs As New ADODB.Recordset 
  Dim intLigneExcel As Integer 
  Dim strCheminBase As String 
 
  Call Chemin 
  ' Connexion à la base de données Comptoir.mdb 
  Set cn = New ADODB.Connection 
  Set rs = New ADODB.Recordset 
  With cn 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
 ...