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 de la macro :
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 : 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
Partager