Macro dans Word qui ne se lance pas depuis Excel

Bonjour,

J'ai une macro dans Excel avec le code suivant qui lance une macro dans un fichier Word.

Code:

---

1 2 3 4

Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open(ActiveWorkbook.Path & "test.doc") WordApp.Run macroname:="NewMacros.Efface"

---

Le code de la macro dans Word est le suivant

Code:

---

1 2 3 4 5 6 7

Sub Efface() Selection.GoTo What:=wdGoToBookmark, Name:="Ec_Accueil" Selection.MoveDown Unit:=wdLine, Count:=5, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 End Sub

---

Quand je suis en version 2003 d'Excel et Word tout se passe bien. Quand je suis en version 2002. Ca plante.
je précise que j'ai bien mis à jour dans les références Microsoft Word 10.0 Object Library au lieu du 11.0 que j'ai dans Excel 2003.

Avez-vous une idée du problème. Évidemment je ne peux passer mes postes Excel 2002 en une version plus récente...

Cordialement,
Polemos

J'ai trouvé ma réponse...
En fait, la macro qui s'execute n'est pas celle de mon fichier Word comme je le croyais mais celle du normal.dot.

Comme elle est présente sur mon poste cela fonctionne... Comme elle ne l'est pas sur les postes en version 2002, ça plante.

Il me reste donc à trouver comment mettre à jour le fichier normal.dot pour 200 personnes !

Cordialement,
Polemos

Bonjour,

Pourquoi ne la mets tu pas dans un module du document au lieu du module du Normal.dot ?
Il te suffit ensuite de distribuer ton nouveau document avec son module contenant ta macro.

Hervé.