Discussion :

[Charles-78]

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

[halaster08]

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/

[Charles-78]

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 :

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
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