connection excel to access

Version imprimable

salut

j'ai trouver ce tuto en youtube
voila le lien : [ame="http://www.youtube.com/watch?v=KMeQzxFk-To"]YouTube - ‪VBA/Excel Connecting Excel to Access using VBA‬&rlm;[/ame]

j'ai commencé par la création de ma table access
voila le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub CommandButton2_Click() Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset con.ConnectionString = "Driver=(Microsoft Access Driver(*.mdb)); " & "DBQ=C:\Documents and Settings\pika\Bureau\Nouveau dossier\tbl_name.mdb;" con.Open Set rs.ActiveConnection = con rs.Open " SELECT*FROM tbl_name" StartRow = 2 Do Until rs.EOF Cells(StartRow, 3) = rs.Fields(0).Value rs.MoveNext StartRow = StartRow + 1 Loop rs.Close Set rs = Nothing con.Close Set con = Nothing End Sub
message d'erreur est :
[Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié

merci de m'aider de résoudre ce problème

Bonsoir,

Le problème ne viendrrait il pas des espaces dans le DBQ?

Solution?
Code:

1 2 con.ConnectionString = "Driver=(Microsoft Access Driver(*.mdb)); " & "DBQ=""C:\Documents and Settings\pika\Bureau\Nouveau dossier\tbl_name.mdb"";"

bonsoir
merci arosec mais ca marche pas aussi...dans le tuto il n'est pas "" devant C...
même j'essaye la solution proposer dans ce lien , aussi elle ne marcha pas
http://www.developpez.net/forums/d30...-non-specifie/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton2_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
con.ConnectionString = "Driver={Microsoft Access Driver(*.mdb)}; " & "DBQ=""C:\Documents and Settings\pika\Bureau\Nouveau dossier\bdname.mdb"";"
 
 
con.Open
 
Set rs.ActiveConnection = con
rs.Open " Select * from bdname"
 
 
StartRow = 2
Do Until rs.EOF
Cells(StartRow, 3) = rs.Fields(0).Value
rs.MoveNext
StartRow = StartRow + 1
Loop
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
End Sub