Bonjour,

Quelqu'un saurait-il comment faire pour executer une requête à partir des résultats d'une autre requête en VBA ???

Pour le moment, j'ai écrit le code suivant, mais je sens que ça ne peut pas fonctionner... Problème je sais pas où ça marche pas !!!

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
 
Private Sub Commande11_Click()
 
Dim i As Integer
Dim strsql As String
 
For i = 1 To (Form_Formulaire2.lst_resultat.ListCount + 1)
    If Form_Formulaire2.lst_resultat.Selected(i) Then
        'Execution du SQL permettant le compte des effectifs
        Call COMPTE_NOTE(i, strsql)
CurrentDb.Execute strsql, dbFailOnError
        Call ECHL_1à5(i, strsql)
        Call NB_ECHL_1à5(i, strsql)
        Call NE_ECHL_1à5(i, strsql)
        Call SOM_1à5(i, strsql)
        Call SEUIL_1à5(i, strsql)
        Call Rqt_Graph_1à5(i, strsql)
 
    End If
Next i
 
End Sub
Avec comme procédure SQL