Bonjour,

Je suis plus que novice en VBA, je cherche par moi-même, et des fois je trouve, mais là je sèche...

Je cherche depuis Access 2016, dans une macro VBA, à récupérer tous les emails contenus dans le champ d'une table requête, et transférer cette liste d'Email collectés dans le champ BCC d'Outlook. 

Ma ligne  Set rs = CurrentDb.OpenRecordset(" Select * from critere_site_de_danse ") de mon code VBA renvoie le message d'erreur suivant :

Erreur d'exécution 3061' trop peu de paramètre. 1 attendu

ma requête qui contient le champ Email se nomme critere_site_de_danse. Mon champ se nomme Email. 

Quelqu'une peut-il m'aider à finaliser mon code que je joins ci-après ? 

Private Sub Command56_Click()
Dim Outlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As DAO.Recordset
Dim critere_site_de_danse As String
Dim recipientList As String

Set oOutlook = New Outlook.Application

Set oEmailItem = oOutlook.CreateItem(oMailItem)
With oEmailItem
            Set rs = CurrentDb.OpenRecordset(" Select * from critere_site_de_danse ")
            If rs.RecordCount > 0 Then
            rs.MoveFirst
    Do Until rs.EOF
    If IsNull(rs!Email) Then
    rs.MoveNext
    Else
        recipientList = recipientList & rs!Email & ";"
        .BCC = recipientList
        rs.MoveNext
   
    End If
    Loop
    Else
    MsgBox "aucune adresse mail enregistr?e pour cette liste d'?l?ves"
    End If
   
    .To = ""
    .CC = ""
    .Subject = ""
    .Display
End With

SetoEmail = Nothing
SetoOutlook = Nothing

End Sub

Merci,

D'autre part, comment exécuter ce code macro depuis un bouton commande depuis un formulaire ? 

Merci