j'arrive pas a faire une liaison en VBA entre excel et une base access

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : j'arrive pas a faire une liaison en VBA entre excel et une base access

angel92

bonjour !

j'essaye de récuperer des enregistrements dans une base access a partir d'une macro en VBA sous excel.
Le probleme et que des le lancement de la macro, j'ai eu erreur a qui me dit que le type Database n'est pas reconnu !

voici mon code

Code :

Sub IntBDD()
Dim DBA As Database
Dim Enreg As Recordset
Dim Ligne As Long
'Ouverture de la base de données "Depart75.mdb"
Set DBA = OpenDatabase("c:\personnes.mdb" )
'Ouverture des enregistrements de la table "Depart75"
Set Enreg = DBA.OpenRecordset("SELECT * FROM personnes ORDER BY nom ASC" )
Ligne = 2
Worksheets("Feuil1" ).Select
'Premier enregistrement de la table "Depart75"
Enreg.MoveFirst
'On parcours la base
While Enreg.EOF = False
' Place le contenu du champ "Lieux" dans la 1ère colonne de la feuille EXCEL
Cells(Ligne, 1) = Enreg!ID
Cells(Ligne, 2) = Enreg!nom
Cells(Ligne, 3) = Enreg!prenom
Cells(Ligne, 4) = Enreg!age
' Ligne suivante
Ligne = Ligne + 1
' Enregistrement suivante
Enreg.MoveNext
Loop
End Sub

Est ce que vous pourriez me dire d'ou est ce que ca vient ?
Merci d'avance !

Publicité

kiki29

voir http://forum.hardware.fr/hardwaref [...] 0668-1.htm du 24-05-2006 à 12:41:44

Khaostyke

Peut-être que ces quelques lignes pourront t'aider

Code :

Dim db As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim strCheminBD as String, strSQL as String
strCheminBD = "C:/taBD.mdb"
strSQL = "SELECT * FROM taTable"
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & strCheminBD & ";"
RST.Open strSQL, db, adOpenStatic, adLockOptimistic
Do While Not RST.EOF
...
RST.MoveNext
Loop
db.Close

Tu ne codes pas sous Access, mais sous Excel! C'est différent. Le plus important est sans aucun doute la string de connexion (celle qui commence par « PROVIDER »)

N'oublie pas aussi de mettre un « On Error » pour gérer les possibles erreurs de connexion etc etc.

Message édité par Khaostyke le 17-07-2006 à 22:39:05

FORUM HardWare.fr

Programmation

VB/VBA/VBS

j'arrive pas a faire une liaison en VBA entre excel et une base access

Sujets relatifs
[VBA] RESOLU Extraction d'une chaine de caractères	Programmation Excel
connexion à une base de données SQL server via ado.net	[ACCESS] lancer l'aperçu avant impression par VB
[Excel/Access] Comment choisir la feuille excel qu'on veut importer	Création d'une base, relation entre les tables
Mettre un champ à jour sous Access ?	Prblm de connexion avec PHP via EasyPhP sur base SQLServ 2000
Prblm connexion php via EasyPhp sur base MSSQLSERVEUR2000
Plus de sujets relatifs à : j'arrive pas a faire une liaison en VBA entre excel et une base access

Page générée en 0.042 secondes