Impossible d'activer la référence Word 2013 en VBA

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:

---

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

Bonjour,

Je ne réponds pas directement a ta question mais si tu passe par du late binding tu n'as plus besoin d'activer les références
http://mhubiche.developpez.com/vba/f...endre/binding/

Merci beaucoup Halaster08, je savais que cette solution existait mais c'est incroyable qu'il n'y ait pas de compatibilité ascendante dans la suite Office
Je vais être obliger d'utiliser le late binding pour arriver à mes fins :(

J'ai essayé via le late binding et à présent, il ne reconnait plus les signets ???
Ci-dessous un extrait du bout de code sur lequel je fais des tests
En Early Binding après avoir monté manuellement la référence, pas de soucis

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub test()   Dim CHEMIN, NOMMODELE As String Dim WordApp As Object Dim WordDoc As Object   'Définition des variables Sheets("Phoning").Activate CHEMIN = ActiveWorkbook.Path & "\" NOMMODELE = "Confirmer un RDV by NEOTOUCH.docx" i = ActiveCell.Row   'on ouvre l'instance Word Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open(CHEMIN + NOMMODELE)   With WordApp 'On gère les signets de texte j = 3 'CLIENT .Selection.Goto what:=wdGoToBookmark, Name:="CLIENT" .Selection.TypeText Text:=Cells(i, j) End With WordDoc.Close False WordApp.Quit   End Sub

---

Merci d'avance pour vos retours