XL 2019 Listebox formulaire word

job75 à dit:

Bonjour le forum,

Je vous donne quand même le code de l'UserForm qui permet de remplir la ListBox :

VB:

Private Sub UserForm_Initialize()
Dim XLApp As Object, wb As Object, tablo
On Error Resume Next
Set XLApp = GetObject(, "Excel.Application")
On Error GoTo 0
If XLApp Is Nothing Then Set XLApp = CreateObject("Excel.Application")
Set wb = XLApp.Workbooks.Open(ThisDocument.Path & "\Excel.xlsx")
tablo = XLApp.Evaluate(wb.Names("Nom").RefersTo).Resize(, 2) 'au moins 2 éléments
wb.Saved = True
If XLApp.Workbooks.Count = 1 Then XLApp.Quit Else wb.Close
ListBox1.List = tablo
End Sub

L'UserForm s'ouvre quand on ouvre le document Word, pas besoin de bouton.

Téléchargez les fichiers joints dans le même dossier (le bureau).

A+

Cliquez pour agrandir...