Discussion :

[Patnel]

Bonjour,
voilà mon objectif:

j'ai un fichier Excel qui génère un documents Word, ce fichier est utilisé par toute une équipe qui travaillent en réseau pour mettre à jour ce fichier.
or depuis peu on est en train de migrer vers office 2010, mais pas tous en même temps.donc il faut que ce fichier fonctionne aussi bien dans les deux environnement.
pour génèrer du word les macros ont besoin de la référence "Microsoft Word", qui n'est pas la même dans les deux cas bien sûr.

pour m'en sortir j'ai fait cette petite routine pour initialiser la bonne référence suivant le bon cas de figure.

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
chem_2000 = "C:\Program Files\Microsoft Office\Office12\MSWORD.OLB"
chem_2010 = "C:\Program Files\Microsoft Office\Office14\MSWORD.OLB"
 
 
ver_office = Application.Version
 
 
If ver_office = "9.0" Then
On Error Resume Next
 With ThisWorkbook.VBProject.References
 Application.DisplayAlerts = False
 .AddFromFile chem_2000
 End With
 Application.DisplayAlerts = True
End If
 
If ver_office = "14.0" Then
On Error Resume Next
 With ThisWorkbook.VBProject.References
 Application.DisplayAlerts = False
 .AddFromFile chem_2010
 End With
 Application.DisplayAlerts = True
End If

mon problème vient du fait que ça marche bien pour office 2000, mais pas sur office 2010, rien ne plante dans cette macro mais la référence n'est pas cochée et la routine de création du fichier word plante;

le fichier existe bien là où je le défini.

quelqu'un a t'il une idée ?

[Oliv-]

Salut,
Tu peux faire du late binding, c'est à dire que ton projet ne contient pas de référence explicit à word, mais qu'il va le trouver AT RUNTIME.

Exemple :

Code :

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

1
2
3
4
5
6
7
 
'early binding
dim oApp as Word.application
set oApp = word.application
'late binding
Dim oApp as Object	
set oDApp = CreateObject("Word.Application")

attention aux constantes word qui ne sont par conséquent par connues

Regarde ce tuto :

edit : "http://www.jpsoftwaretech.com/excel-vba/list-of-enumerated-constants-for-late-bound-vba-automation/" source du fichier joint

[Patnel]

merci pour ta réponse Oliv,
tu me presente quelque chose de nouveau pour moi que je ne comprend pas vraiment :

voici comment je traite ma création de fichier word :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim oWoApp As New Word.Application
 
......
 
' ouvrir la fiche
Set oWoApp = New Word.Application
 
fic_out = oWoApp.Documents.Open(fich_ec, ReadOnly:=False, revert:=False)
oWoApp.Visible = True

voilà pourquoi je dois installer la référence à word
je ne vois pas comment appliquer ta méthode de late binding ???
si tu peux me donner un peu plus d'éclaircissement

Merci

[Oliv-]

Salut,

Essaye cela dans un nouveau classeur sans référence à WORD bien sûr!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test_à_Patnel()
 
fich_ec = "C:\temp\temp.doc"
Dim oWoApp As Object
 
' ouvrir la fiche
Set oWoApp = CreateObject("Word.Application")
 
fic_out = oWoApp.Documents.Open(fich_ec, ReadOnly:=False, Revert:=False)
oWoApp.Visible = True
End Sub

[kiki29]

Salut, à lire Early ou Late Binding
On développe en Early Binding et déploie en Late Binding surtout dans les environnements hétérogènes.

[Patnel]

merci Philippe (kiki29 vive la bretagne et les bretons !!)

j'ai fait comme tu as dit:

sur office 2000
1 la reference est toujours demandée sinon il ne reconnait pas l'objet
2 si je rajoute la reference il reconnait l'objet mais il plante sur le traitement


ça serai bien si ma première idée d'implanter la bonne référence par vba suivant la version d'office fonctionnerait avec 2010 , doit y avoir quelque chose qui m'échappe