Discussion :

[pikamo]

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‬‏[/ame]

j'ai commencé par la création de ma table access
voila le 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
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

[arosec]

Bonsoir,

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

Solution?

Code :

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

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

[pikamo]

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 :

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
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