Discussion :

[bboy-eazy]

Bonjour à tous,

Je suis confronter à un nouveau problème:


j'ai un classeur Excel qui à besoin des références Word.

Le problème c'est qu'il peut etre ouvert sur Excel 2010 ou Excel 2003.

En fait c'est pour mon entreprise qui possède des ordinateur normaux avec des réseau dessus. Si on utilise Excel, c'est Excel 2010
Et des ordinateur dit TL (Terminaux Légers) qui ne possèdent pas de disque dur, cela va directemetn sur le réseau et tout s'ouvre avec 2003.


Du coup j'ai la référence Microsoft Word 14.0 sur Excel 2010 et Microsoft Word 9.0

Le problème c'est que lorsque je suis sur un TL, il n'arrive pas à activer la référence que je veux. Il dit qu'il ne la trouve pas... Elle est censée etre dans M:\program Files\Microsoft Office\Office\MSWORD9.OLE (c'est le chemin qui est marqué lorsque j'ai activé la référence) sauf que M:\program Files\Microsoft Office\Office\MSWORD9.OLE n'existe pas quand j'essaye de l'ouvrir. Ca doit être le disque dur de l'ordi qui n'existe pas... Y a -t-il un moyen de contourner le problème?

Autre problème si je n'active pas la référence Office 14.0 sur 2010 enregistre et ouvre via le TL, la référence Microsoft Office 9.0 n'apparait pas dans la liste des références...

en gros:
sous 2010: référence présente: uniquement microsoft word 14.0 chemin: C:\program Files\Microsoft Office\Office14\MSWORD.OL
sous TL: référence présente: uniquement microsoft word 9.0 chemin: M:\program Files\Microsoft Office\Office\MSWORD9.OLE

voici mon code:

Code :

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

1
2
3
4
5
6
7
If Val(Application.Version) < 12 Then
    'Si version d'Excel via TL
If Not ReferenceActive("Word") Then ActiverReference "MSWORD9.OLE" 'j'ai aussi essayé avec le chemin complet M:\program Files\Microsoft Office\Office\MSWORD9.OLE
Else
    'Si version d'Excel égale à 2007 ou supérieure
If Not ReferenceActive("Word") Then ActiverReference "MSWORD.OL" 
End If

Code :

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

1
2
3
Sub ActiverReference(NomComplet As String)
    ThisWorkbook.VBProject.References.AddFromFile NomComplet
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ReferenceActive(Nom As String) As Boolean
    Dim i As Integer
    Dim NbreRef As Integer
 
    NbreRef = ThisWorkbook.VBProject.References.Count
 
    For i = 1 To NbreRef
        If ThisWorkbook.VBProject.References(i).Name = Nom Then
            ReferenceActive = True
            Exit Function
        End If
    Next i
End Function

Merci de votre aide

[Invité]

Bonjour,
oublis les références, supprime les de ton projet!

Code :

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

1
2
Dim Wrd as object
set Wrd=createObject("Word.application")

[kiki29]

Salut, un tutoriel sur la chose : Early ou Late Binding

[patricktoulon]

bien dit duruot

Code :

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

1
2
Dim Wrd as object
set Wrd=createObject("Word.application")

our info l'object créé utilisera les references du pc sur le quel le fichier est utilisé

[bboy-eazy]

Bonjour à vous tous,

Merci, en effet c'était tout con... juste à déclarer en objet..

Merci à tous

merci pour le tuto. ca pourra toujours servir au cas ou

[AdrienC27]

Bonjour,

Je me permets de ressusciter cette discussion car je suis confronté à cette problématique et n'arrive pas à m'en sortir.
Pour le contexte : je dois créer un code pour récupérer des données et variables sur des feuilles excel afin de les mettre en forme dans Word. Ce fichier devant être utilisé par des personnes non expérimentées qui auront des versions différentes potentiel d'OS et/ou de WORD, je compte réaliser mon programme en LATE BINDING et ainsi leur éviter l'activation de la référence Microsoft Office Word xx.x library ...

Cependant, impossible pour moi d'exploiter pleinement mon code que j'avais précédemment réalisé en EARLY BINDING (qui fonctionne bien), je me retrouve avec des erreurs.

Voici un essai où je déclare l'objet Word, ouvre un document et écrit 2 phrases et met en gras (qui génère une erreur au niveau du texte en rouge avec commentaire):

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
option Explicite
 
Sub testLateBinding()
 
Dim WordApp As Object
 
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
WordApp.documents.Add
 
With WordApp.Selection
.typetext Text:="LATE BINDING"
.typeparagraph
.typetext Text:="CA FONCTIONNE ?"
End With
 
WordApp.Paragraph(1).Range.Select 'Erreur d'exécution '438' Propriété ou méthode non gérée par cet objet.
WordApp.Selection.Font.Bold = True
 
Set WordApp = Nothing
 
End Sub

En reprenant exemple sur l'EARLY BINDING, j'ai ajouté un objet WordDoc = WordApp.Documents.App afin que le programme execute le code dans l'objet "document" et non "word" directement :

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
Option Explicit
Sub testLateBinding()
 
    Dim WordApp As Object
    Dim WordDoc As Object
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.documents.Add
 
With WordApp.Selection
.typetext Text:="LATE BINDING"
.typeparagraph
.typetext Text:="CA FONCTIONNE ?"
End With
 
WordDoc.Paragraph(1).Range.Select 'Erreur d'exécution '438' Propriété ou méthode non gérée par cet objet.
WordApp.Selection.Font.Bold = True
 
Set WordApp = Nothing
 
End Sub

Je me retrouve avec la même erreur au même endroit. Ce soucis m'arrive aussi avec la méthode Styles.Add ("TitreA") .... WordApp.Styles("TitreA").Font.Bold = True.

Mes questions sont donc :
Est-ce que je me trompe sur la déclaration des Objets ? Sur l'utilisation de l'objet ? Ou est-ce que le LATE BINDING ne prend pas ces méthodes en charge?
Si je dois utiliser d'autres méthodes, y a-t-il un référencement de ces méthodes que je puisse avancer avec les méthodes compatibles?

Je vous remercie par avance pour votre retour car cela fait 1 semaine que je fais des essais et cherche une solution sur le net.

[Patrice740]

Bonjour Adrien,

Écrit et teste ton code en early binding pour bénéficier de l'intellisense, puis transforme le en late binding.
Exemple :

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
Option Explicit
Sub testLateBinding()
'Dim WordApp As Word.Application
'Dim WordDoc As Word.Document
'  Set WordApp = New Word.Application
Dim WordApp As Object
Dim WordDoc As Object
  Set WordApp = CreateObject("Word.Application")
  WordApp.Visible = True
  Set WordDoc = WordApp.documents.Add
  With WordDoc.Content
    .Text = "LATE BINDING"
  End With
  Set WordApp = Nothing
End Sub

[Philippe Tulliez]

Bonjour,
Pour compléter la réponse de Patrice et s'affranchir des apostrophes, on peut utiliser la compilation conditionnelle
En tête de module

Code :

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

#Const IsLateBinding = True

Dans une procédure

Code :

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

1
2
3
4
5
6
7
8
9
 #If IsLateBinding Then
     Dim appWrd As Object
     Dim wrdDoc As Object
     Set appWrd = CreateObject("Word.Application")
  #Else
     Dim appWrd As Word.Application
     Dim wrdDoc As Word.Document
     Set appWrd = New Word.Application
 #End If

Ainsi pendant le développement on donne comme valeur False à la constante IsLateBinding après avoir référencé Microsoft Word xx.n Object library ce qui permet de bénéficier de l'intellisense et dès que les tests sont concluant, il suffit de mettre comme valeur True à la constante et décocher la référence à la librairie Word.

[AdrienC27]

Merci pour vos retours !!!

Effectivement dans mon test il y a des erreurs de ma part et j'en suis navré car je n'ai donc pas fait sortir les bonnes erreurs.. Cependant comme expliqué dans mon premier message, mon programme a précédemment été réalisé en EARLY BINDING et fonctionne. Quand je le passe en LATE BINDING, je me retrouve avec des erreurs (voir code en dessous). Je pensais donc avoir mal déclaré mes Objets. Cependant après vos retours je m’aperçois que le code bloque quand je vais chercher une donnée sur mon classeur excel.

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
27
28
29
30
31
32
33
34
35
36
37
Sub testLateBinding()
 
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
 
    'Dim WordApp As Word.Application
    'Dim WordDoc As Word.Document
 
   ' Set WordApp = CreateObject("Word.Application")
    'WordApp.Visible = True
   'Set WordDoc = WordApp.Documents.Add
 
With WordApp.Selection
.typetext Text:="LATE BINDING"
.typeparagraph
.typetext Text:=Feuil1.Range("A1") 'Erreur d'exécution '13' Incompatibilité de type
End With
 
WordDoc.Styles.Add ("Titre A")
With WordDoc.Styles("Titre A").Font
    .Bold = True
     .Italic = False
     .ColorIndex = wdBlack
     .Name = "Arial"
     .Size = 14
End With
 
'Mise en forme
    WordDoc.Paragraphs(1).Range.Select
    WordApp.Selection.Style = WordDoc.Styles("Titre A")
 
Set WordApp = Nothing
 
End Sub

J'ai bien fait le test en EARLY BINDING en activant manuellement la référence, j'ai aucune erreur. Ensuite je désactive la référence et passe en LATE BINDING et je suis bloqué. J'ai aussi testé en reprenant le chemin complet du classeur soit : .typetext Text:=ThisWorkbook.Worksheets("Feuil1").Range("A1"), cela fonctionne en EARLY BINDING mais pas en LATE BINDING.

Encore merci pour vos précédents commentaires qui vont me permettre d'éviter les erreurs et vous remerciant par avance de m'éclairer sur ce nouveau sujet ?

[Philippe Tulliez]

Bonjour,
Ajoute la propriété Value à l'objet Range, cela devrait aller mieux

Code :

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

.typetext Text:=Feuil1.Range("A1").Value

Cependant en LateBinding, tu vas avoir une autre erreur à la ligne ci-dessous car évidemment dans ce mode, le programme ne peut connaître les constantes préfixées wd

Code :

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

.ColorIndex = wdBlack

Voir la discussion sur ce sujet, titrée Enumérer les constantes Office pour les utiliser en LATEBINDING

[AdrienC27]

Merci à vous Patrice et Philippe pour votre aide et réactivité !!!!!! J'ai fait un test avec mon programme : des "const wd "et ".value" sur les "range" = plus d'erreur !!!
Bonne continuation et à bientôt pour une prochaine question :-p