Créer un objet Word.Application quand Word est déjà lancé...Résolu

Question

Bonsoir,

En lançant ma macro EXCEL, je m'aperçois que la création d'un objet Word.Application n'est pas possible lorsque WORD est déjà lancé. Si je quitte Word pendant que la macro bloque, alors WORD se lance et tout va bien. Voici le code (on ne peut plus classique):

Set AppWord = CreateObject("Word.Application") ' Plante si Word est déjà lancé...
AppWord.Visible = True

J'ai bien trouvé un module qui teste la présence de WORD et qui utilise soit "CreateObject" soit "GetObject" selon le cas. Mais ce module fonctionne sur Windows et je suis sur MacOS...

Des idées ?

Merci d'avance,
Hervé

cs_herve06 · Accepted Answer

Oops! Il suffisait d'intercepter l'erreur 429.

'
' Lancement de Word (utilise GetObject si Word est déjà lancé, et CreateObject dans le cas contraire)
'
On Error Resume Next
  Set AppWord = GetObject(, "Word.Application")
  If Err.Number = 429 Then
    Err.Clear
    Set AppWord = CreateObject("Word.application")
  End If
AppWord.Visible = True

Désolé...
Hervé

Créer un objet Word.Application quand Word est déjà lancé...

1 réponse

Votre réponse

Discussions similaires