Ouverture du Word à partir d'Excel

Bonjour,

J'ai certainement une bête question mais là je calle et je sais qu'une oreille attentive aura vite fait de me recadrer.

J'ai un macro qui après un certain traitement ouvre le word. 2 versions existent:

VERSION 1:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

... Dim appwrd As Word.Application Dim docword As Word.Document Application.WindowState = xlMinimized Set appwrd = Word.Application appwrd.Visible = True   Set docword = appwrd.Documents.Add(Template:="i:bruxelles-brussel\pfg\itinéra\support\wf_itinera\itinera_aaanormal.dot", newtemplate:=False, documenttype:=0)   DoEvents Application.Quit

---

VERSION 2:

Code:

---

1 2 3 4 5 6 7 8 9 10

... Application.WindowState = xlMinimized Set appxcl = Excel.Workbooks.Application Set appwrd = CreateObject("Word.Application") appwrd.Visible = True appxcl.Visible = True   Set docword = appwrd.Documents.Add(Template:="i:bruxelles-brussel\pfg\itinéra\support\wf_itinera_152\itinera_aaanormal_152.dot", newtemplate:=False, documenttype:=0)   Application.Quit

---

Donc, ma bête question: pourquoi mon PC peut-il fonctionner avec les deux versions et que le PC de mes collègues ne fonctionnent qu'avec la version 2?

Merci,

Bonjour,
Dans la première version, il faut référencer la bibliothèque Microsoft Office Word xx.0 Object Librairy et dans la deuxième pas. Cette bibliothèque n'est peut-être pas prise en charge par le PC de tes collègues (Version de Word différentes par exemple.
Il est préférable de tester ton code avec la première version et ensuite de le distribuer en utilisant la seconde version.

Salut, juste en complément à la perspicacité de Philippe : développer en Early Binding et déployer en Late Binding, voir ici

Bonjour,

Testé et approuvé. Merci pour les infos. maintenant cela fonctionne. :ccool: