XL 2019 Listebox formulaire word

[dindin]

Bonjour à tous,
Avant de joindre mes fichiers. J'ai une question.
Est il possible de récupérer une base de données clients excel, et l'afficher sur un formulaire word qui s'ouvre depuis un bouton personnalisé sur le ruban word.
Le bouton, j'ai réussi à le faire. Il ouvre un formulaire qui contient une listebox.
L'objectif c'est pouvoir rechercher un client dans la listebox et afficher le contenu dans des textbox et ensuite les copier dans des signets word.
Merci pour votre aide

 

[wDog66]

Bonjour,

Un filtrage de la BdD dans un publipostage ne demande que 2s 😉

 

[job75]

Bonjour,

Le formulaire est dans le fichier Word donc le VBA sera programmé dans Word.

Ici c'est le forum Excel, utilisez le forum "Autres applications".

A+

 

[job75]

Bonjour le forum,

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

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+

 

[dindin]

Bonjour le forum,

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

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+

Merci pour ce code.