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" 
 ...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 16.9 Importer une table entière Access (avec QueryTables)
Suivant
Corrigé 16.11 Importer certains enregistrements d'une table Access