Bonjour,

Je débute en macro et je souhaite à partir de Word lancer une macro qui me permet d’afficher dans un UserForm les différents documents Excel déjà ouverts (pour en sélectionner un par la suite).
J’ai trouvé le code ci-après mais il ne fonctionne qu’à partir d’Excel :

Code du UserForm :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Private Sub ListBox1_Click()
 
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
  Excel.Workbooks(Me.ListBox1.Value).Activate
  Unload Me
End Sub
 
Private Sub UserForm_Initialize()
Dim Wb As Excel.Workbook
 
 
  For Each Wb In Excel.Workbooks
    Me.ListBox1.AddItem Wb.Name
  Next Wb
 
End Sub
Code de la macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub Init()
  UserForm1.Show 0
End Sub

Savez-vous que manque-t-il à mon code pour qu’il fonctionne à partir de word ?
Merci