XL 2013 VBA erreur d'execution 429 - un composant activex ne peut pas créer un objet

[kaisermpt]

bonjour,

j'ai une macro sous excel qui ouvre un fichier Word pour placer ensuite des graphiques dans ce fichier WORD.

Cette macro marche parfaitement sur mon poste de travail (Excel 2010) mais pas sur mon ordi (excel 2016).

J'ai le message Erreur d'execution 429 : un composant activex ne peut pas créer un objet

Pourriez vous me dire à quel niveau il s'agit pour que ça fonctionne. Au niveau des Références il faut ajouter un module ?

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim ws As Worksheet
Dim i As Integer

Application.ScreenUpdating = False

Set ws = ThisWorkbook.Sheets(1) 'Onglet contenant les graphiques


Set wrdApp = CreateObject("word.Application")
wrdApp.Visible = True
wrdApp.Documents.Open "F:\Documents

Merci d'avance

Cdt

Seb

 

[Dranreb]

Bonsoir.
À tout hasard est ce que Set wrdApp = New Word.Application marcherait mieux ?
(CreateObject c'est surtout pour un objet dont on ne veut pas cocher la référence de la fourniture qui le définit, parce qu'on adore, pour une mystérieuse raison, les liaisons tardives…)

 

[kaisermpt]

bonsoir

Hélas ca ne marche pas.

Merci

Cdt

seb

 

[eriiic]

Bonjour,

parce qu'on adore, pour une mystérieuse raison, les liaisons tardives…

Pas si mystérieuse.
Ca permet de ne pas être dépendant de la version installée non ?

Et avec :

Dim wrdApp As Object
Set wrdApp = CreateObject("word.Application")

?
eric