Selection Listbox
b
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.
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