Discussion :

[DarkGriffin]

Bonjour,

J'ai un fichier word qui a besoin d'aller lire un document excel. Pour cela, il faut que je référence excel dans Outils > Références > Microsoft Office xx.x Object Library

Malheureusement, je ne sais pas pourquoi, à chaque ouverture de ce document word, bien que la référence soit toujours cochée, c'est comme si elle ne l'était pas : le code où j'utilise excel produit une erreur. Il faut que je décoche, valide, recoche, valide. Et là, ça fonctionne.

Première question : avez-vous une idée de pourquoi ça fait ça ??

Du coup, pour palier le truc, je voudrais qu'à l'ouverture du fichier word, ça déréférence puis reréférence automatiquement excel. Problème : ce fichier peut être ouvert par plusieurs utilisateurs sur plusieurs environnements, donc il faudrait aller chercher la référence la plus récente d'Excel.

Deuxième question : comment on fait ça ?

Merciii

[Invité]

Bonjour,

Le code ci-dessous instancie Excel depuis Word en liaison tardive (ou late binding : Excel n'est pas coché dans les références VBA Word). Pour cela, il vous faut créer des variables de type Object.
Ce code est issu de cette discussion : importation-d-graphique-excel-word-appel-macro-vba-word

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub CreerUnInstanceExcelDepuisWord()
 
Dim I As Integer
Dim MonChemin As String
Dim DocEncours As Document
 
Dim AppExcel As Object, FicExcel As Object
 
    On Error GoTo Fin
 
    Set DocEncours = ActiveDocument
 
      MonChemin = "C:\Users\...\Xxxxx.xlsm"
 
     Set AppExcel = CreateObject("Excel.Application")
     With AppExcel
 
          .Visible = True
          Set FicExcel = .Workbooks.Open(MonChemin)
          FicExcel.Sheets("Données").ChartObjects("Graphique 2").Copy
 
          With DocEncours
               'Cherche le signet nommé Signet1
               Selection.GoTo What:=-1, Name:="Signet1"
               DoEvents
               'Colle le graphe dans le signet
               Selection.PasteSpecial , Link:=False
               DoEvents
          End With
 
          FicExcel.Close savechanges:=False
 
    End With
 
    MsgBox "Import graphe terminé !", vbInformation
 
    GoTo Fin
 
Fin:
 
    Set FicExcel = Nothing
    AppExcel.Quit
    Set AppExcel = Nothing
 
    Set DocEncours = Nothing
 
End Sub

Avec ce mode de fonctionnement, le code ne permet pas l'utilisation directe des paramètres propres à Excel (derrière les := ). Il vous aller chercher dans l'aide Excel, leur équivalent numérique. En revanche, il devrait régler les problèmes de compatibilité de version, au moins lors de l'ouverture.