Bonjour !
J'ai un petit soucis qui commence à me faire craquer...
J'aimerais pouvoir remplir une lisbox avec différents noms de produits, mais il me fait une erreur (citée dans le titre)
Et je ne sais vraiment pas quoi faire pour la résoudre, ne sachant pas ce qui la provoque...
Est-ce que qqn pourrait m'aider svp ? C'est la ligne en rouge qui me pose problème...
Merci d'avance !!
Sub ListFamProd()
Dim Query As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Query = "SELECT....etc"
Set rst = ClsBdd.exQuery(Query)
ActiveWorkbook.Worksheets("Graph").FamProdBox.Clear
While Not (rst.EOF)
ActiveWorkbook.Worksheets("Graph").FamProdBox.AddItem (rst("Nom"))
rst.MoveNext
Wend
rst.Close
ActiveWorkbook.Worksheets("Graph").FamProdBox.ListIndex = 0
End Sub
J'ai un petit soucis qui commence à me faire craquer...
J'aimerais pouvoir remplir une lisbox avec différents noms de produits, mais il me fait une erreur (citée dans le titre)
Et je ne sais vraiment pas quoi faire pour la résoudre, ne sachant pas ce qui la provoque...
Est-ce que qqn pourrait m'aider svp ? C'est la ligne en rouge qui me pose problème...
Merci d'avance !!
Sub ListFamProd()
Dim Query As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Query = "SELECT....etc"
Set rst = ClsBdd.exQuery(Query)
ActiveWorkbook.Worksheets("Graph").FamProdBox.Clear
While Not (rst.EOF)
ActiveWorkbook.Worksheets("Graph").FamProdBox.AddItem (rst("Nom"))
rst.MoveNext
Wend
rst.Close
ActiveWorkbook.Worksheets("Graph").FamProdBox.ListIndex = 0
End Sub