Choisir un doc excel déjà ouvert

[bibenki]

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 :

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 :

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