Discussion :

[youness.el2010]

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:

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

Mais le souci il bloque à la ligne Rouge et m'affiche un message d'erreur Format de base de données non reconnu.
Merci de votre aide

[Invité]

Bonjour

Pour une base de données accdb il faut changer de provider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Provider = "Microsoft.JET.OLEDB.12.0"

et de plus, il faudrait je pense mettre le chemin complet dans le Open de la base.

Philippe

[youness.el2010]

J'ai procédé à la modification, mais la message d'erreur à changer
Impossible de trouver.Il est peut être mal installé et qd je clic sur aide:
Impossible d'ouvrir le fichier:mk:@MSITStore:ADO270.CHM
Merci d'avance de votre aide

[f-leb]

Hello,

pour les accdb, peut-être:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Provider = "Microsoft.ACE.OLEDB.12.0"