Bonsoir à tous,

J'ai un formulaire contenant une liste (ListeClient) de choix multiple et un bouton de validation.
J'ai crée un ruban avec un bouton qui reprend (à peu de chose près) le code du bouton du formulaire dont voici le 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
Public Sub btnAjouterClient(ByVal control As IRibbonControl)
 
On Error GoTo Err_btnAjouterClient
 
Dim i As Variant
    With ListeClient
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                CurrentDb.Execute "INSERT INTO TblVisaClient (NumClient,NumIndice) VALUES ('" & .Column(0, i) & "','" & ValeurVarIndice() & "' );"
            End If
        Next i
    End With
 
Exit_btnAjouterClient:
    Exit Sub
 
Err_btnAjouterClient:
    'MsgBox Err.Description
    Resume Exit_btnAjouterClient
 
End Sub
ça fonctionne très bien comme ça avec le bouton sur le formulaire, mais je voudrais profiter du Ruban et déplacer le bouton du formulaire.

J'ai modifier la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
With ListeClient
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
With [Forms]![FrmVisaClient].[ListeClient]
et... ça ne fonctionne pas. Les valeurs de ma requête ne sont pas ajoutés à la table.

Un p'tit coup de main serait le bien venu !!!

Merci
Curt