Bonjour à tous,
Jusqu'à Excel 2007, j'activais via VBA les références pour Word, Outlook ou PowerPoint via ce petit bout de code

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
Sub TEST()
 
Dim NbreRef, ReferenceActive, i As Integer
 
'On monte la référence Word si pas montée
On Error GoTo NOREF
    NbreRef = ThisWorkbook.VBProject.References.Count
    For i = 1 To NbreRef
        If ThisWorkbook.VBProject.References(i).Name = "Word" Then
            ReferenceActive = 1
            Exit For
        End If
    Next i
    If ReferenceActive = 0 Then ThisWorkbook.VBProject.References.AddFromFile "msword.olb"
NOREF:
On Error GoTo 0
End Sub
Hélas sous Excel 2013, ça ne marche plus et malgré mes recherches sur le site et sur le WEB, je n'ai pas trouvé comment faire
Merci d'avance pour votre aide
Cdlt