Selection Listbox

Bonjour,

J'ai mon fichier excel connecté à une base de donnée MySQL.

le programme VBA permet de recuperer la liste des reference grace à une requet SQL de recherche qu'il affiche sur une Listbox.

screenshot 7

Ma question : comment donner l'instruction en VBA pour dire si l'utilisateur selectionne une des reference affichée en listbox => executer un fichier PDF que je donnerai le chemain.

Merci d'avance

Vous trouvez ci-joint mon programme :

Private Sub search()
    Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim Rechercher As String

    Server_Name = "127.0.0.1"
    Database_Name = "base"
    User_ID = "root"
    Password = "m02pas"

If OptionButton_Num_Projet_Piece_Produit = True Then
   Rechercher = TextBox1_Num_Projet_Piece_Produit
   SQLStr = "SELECT numero, description_courte FROM table01 WHERE numero LIKE '" & Rechercher & "%'"

Else

    If OptionButton_Description_courte = True Then
       Rechercher = TextBox2_Description_courte
       SQLStr = "SELECT numero, description_courte FROM table01 WHERE description_courte LIKE '" & Rechercher & "%'"
    Else

    End If

End If

    Set Cn = New ADODB.Connection
    Cn.Open "Driver={MYSQL ODBC 8.0 Unicode Driver};Server=" & Server_Name & ";Database=" & Database_Name & ";Uid=" & User_ID & ";Pwd=" & Password & ";"
    rs.Open SQLStr, Cn, adOpenStatic

    a = rs.GetRows
    ListBox1.ColumnCount = UBound(a, 1) + 1
    ListBox1.List = Application.Transpose(a)
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub
Rechercher des sujets similaires à "selection listbox"