Discussion :

[QuestVba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Philippe Tulliez]

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.

[kiki29]

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

[QuestVba]

Bonjour,

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