Bonjour à tous

Je débute actuellement en VBA et j'utilise le FAQ de ce site afin de m'exercer.
Je suis actuellement en train de réaliser le travail suivant:

J'ai une base de donnée access Eleve et je souhaites par une macro appeler son contenu et l'afficher dans excel.

Je peux evidemment utiliser l'enregistreur de macro, ce qui actuellement fonctionne mais le but final est de pouvoir utiliser cette macro pour insérer des paramètres dans ma recherche afin de préciser les résultats.

Voici actuellement mon 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
 Sub DAOOpenRecordset()
 
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase("C:\Documents and Settings\thibaut.lecrosnier\Bureau\bd1.mdb")
    sSQL = "Select * From Eleve"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
' parcours du rst
 
    Do Until rst.EOF
    ' code
    rst.MoveNext
    Loop
 
 ' Fermeture du Recordset
    rst.Close
 
End Sub
Je n'ai pas de message d'erreur sur ma macro mais je n'ai pas non plus de résultat.

Je pense qu'il s'agit d'un oublie de ma part dans la macro mais débutant en VBA je ne trouve pas la solution.

Merci pour votre aide

Edit: fautes de frappe