ConsultantJP
XLDnaute Occasionnel
Bonjour à tous,
Je suis en train de concevoir un fichier excel qui permet de lire et stocké les infos dans access.
J'ai mis un listbox dans un userform qui me donne la liste des clé primaires mais je voudrais que dans cette listbox on puisse voir dans une secodne colonne la colonne NomPrénom mais je n'arrive pas à le faire.
Pouvez vous m'aiguiller ?
Voici le code que j'ai fait :
Merci
Je suis en train de concevoir un fichier excel qui permet de lire et stocké les infos dans access.
J'ai mis un listbox dans un userform qui me donne la liste des clé primaires mais je voudrais que dans cette listbox on puisse voir dans une secodne colonne la colonne NomPrénom mais je n'arrive pas à le faire.
Pouvez vous m'aiguiller ?
Voici le code que j'ai fait :
Code:
Private Sub UserForm_Initialize()
'#########################################
'### Référence : Library DAO
'### C:\Program Files\Fichiers communs\Microsoft Shared\DAO\dao360.dll
'### Microsoft DAO 3.6 Object Library
'##########################################
Dim BDD As DAO.Database
Dim RS As DAO.Recordset
Dim BDDPath As String
Dim SQLQuery As String
Dim ListeResultats As Variant
Dim NombreResultats As Integer
Dim m As Long 'et non pas Integer
BDDPath = ThisWorkbook.Path & "\BaseSuspens.mdb"
Set BDD = OpenDatabase(BDDPath, False, False)
'SQLQuery = "SELECT * FROM Base WHERE " & clé & ""
SQLQuery = "SELECT [AlerteFamille2].[Clé] FROM [AlerteFamille2]"
Set RS = BDD.OpenRecordset(SQLQuery)
RS.MoveLast
m = RS.RecordCount
RS.MoveFirst
ListeResultats = RS.GetRows(m)
With ListBox1
.ColumnCount = UBound(ListeResultats, 2) + 1
.List() = Application.WorksheetFunction.Transpose(ListeResultats)
End With
End Sub
Merci