Bonjour à tous
je voudrais à partir d'un fichier excel récupérer certains champs d'une table d'accés, j ai fait des recherches et j'ai récupéré ce code:
Mais le souci il bloque à la ligne Rouge et m'affiche un message d'erreur Format de base de données non reconnu.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 'Importation de certains champs d'une table Access (Avec ADO) Sub ImportEnrBDADOdansExcel() Dim vApplicationAccess As Access.Application Dim vConnexion As ADODB.Connection Dim vEnregistrement As New ADODB.Recordset Dim vNumLigne As Integer chemin 'Connexion à la base de données Comptoir.mdb 'Veuillez à ce que la BD soit compatible 'Avec votre version d'access Set vConnexion = New ADODB.Connection With vConnexion .Provider = "Microsoft.JET.OLEDB.4.0" .Open "BDClients.accdb" 'N'oubliez pas l'extension End With vNumLigne = 2 With vEnregistrement .ActiveConnection = vConnexion .CursorType = adOpenForwardOnly .LockType = adLockOptimistic .Open ("Clients") Do While Not .EOF vNumLigne = vNumLigne + 1 Worksheets(1).Range("K" & vNumLigne) = vEnregistrement!Numéro Worksheets(1).Range("L" & vNumLigne) = vEnregistrement!Nom Worksheets(1).Range("M" & vNumLigne) = vEnregistrement!Prénom vEnregistrement.MoveNext Loop End With vEnregistrement.Close 'fermeture de la connexion vConnexion.Close End Sub
Merci de votre aide
Partager