Problème affichage de données importées via RecordSet

Bonjour,
J'aimerais avoir votre aide sur un petit soucis qui peut paraitre vraiment simpliste pour certain mais je débute en vba. Donc j'aimerais me connecter à une base de données via code vba puis ensuite afficher les données dans une feuille de mon classeur. Ces données peuvent être important en taille.

Je vous fournit en partie mon code dans mon fichier actuel que je vais joindre avec ma petite explication.
Donc voila l'utilisateur va selectionner dans le UserForm qui s'affiche le shop pqu'il décide de voir, ensuite lorsqu'il appuie sur le bouton ça lui importe toutes les données du shop qu'il a selectionné dans la feuille. Cependant je n'arrive pas à afficher ces données pourriez vous m'aider svp.


Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CreationRequete(NomShop As String) ActiveSheet.Range("A1").Value = NomShop   Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset, fld As ADODB.Field ' Ouverture de la connexion cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=JONATHAN-PORT\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=JONATHAN-PORT;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Toyota_test" ' Ouverture du Recordset en défilement en avant, et en lecture seule rst.Open "SELECT * FROM " & NomShop, cnn, adOpenForwardOnly, adLockReadOnly   '''''Affichage des données   ' Fermeture du Recordset rst.Close End Sub

---

Si on ne ce revoit pas d'ici demain je vous souhaites une bonne matinée et surtout de très bonne fête à vous tous et toutes !

PS : (Je n'arrive pas à mettre mon fichier en pièce jointe )

Sincèrement Jonathan.

Bonjour,

Exemple avec CopyFromRecordset

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub LectureAccess() 'Microsoft ActivexDataObject 2.8 Library repertoire = ThisWorkbook.Path & "\" Dim rs As ADODB.Recordset Set cnn = New ADODB.Connection cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "Access2000.mdb" Set rs = cnn.Execute("SELECT * FROM Client ORDER BY nom_client") Range("A2").CopyFromRecordset rs rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing End Sub

---

Exemple avec boucle sur les enregistrements

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub LectureAccess2() repertoire = ThisWorkbook.Path & "\" Dim rs As New ADODB.Recordset Set cnn = New ADODB.Connection cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "Access2000.mdb" rs.Open "SELECT * FROM client ORDER BY nom_client", cnn Do While Not rs.EOF MsgBox rs!Nom_Client rs.MoveNext Loop rs.Close cnn.Close End Sub

---

Exemple avec GetRows

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub UserForm_Initialize() rep = ThisWorkbook.Path Dim rs As ADODB.Recordset Set cnn = New ADODB.Connection cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & rep & "\Access2000.mdb" Set rs = cnn.Execute("SELECT nom_client FROM Client ORDER BY nom_client") Me.Choix.List = Application.Transpose(rs.GetRows) rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing End Sub

---

Jacques Boisgontier