HRESULT sur un objet COM Word

Version imprimable

18/02/2016, 08h46
Franck.H

HRESULT sur un objet COM Word

:salut:

Je travailles sur une application web VB.Net/ASP avec laquelle je produit des fichiers Word. Jusque là tout allait bien mais d'un coup, dès que je veux produire un fichier Word, j'ai une "Exception de HRESULT : 0x800706BE".

Je suis en local avec Visual Studio 2010. J'ai même redémarré le PC au cas où plus rien n'y fait. D'où cela pourrait-il venir ? D'après mon debug, cela viendrait de mon code suivant:

Code:

_doc.Bookmarks.Item(bookmark).Range.InlineShapes.AddPicture(filename)

Ca le fait dès l'insertion de la première image alors que ça a toujours fonctionné, bizarre...

:merci:
18/02/2016, 10h00
Franck.H

Bizarrement, ça fonction avec

Code:

_word.ActiveDocument.Bookmarks.Item(bookmark).Range.InlineShapes.AddPicture(filename)

Pourtant l'autre variable à bien gardé la référence vers le document.

... Merci moi-même :aie:

Bon bin finalement, aujourd'hui j'ai de nouveau cette erreur avec ma nouvelle solution et du coup, des deux manières, cela ne fonctionne plus :mur:

Si quelqu'un peut m'expliquer le pourquoi du comment... là je sature avec ces comportements indéterminés :massacre:

J'ai une classe qui me permet de gérer les insertions plus facilement dans les fichiers Word, voici le constructeur:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
            Sub New(ByVal wordModel As String, Optional ByVal showWordInstance As Boolean = True)
                Try
                    _word = New IWord.Application
 
                    _word.Visible = showWordInstance
                    _doc = _word.Documents.Add(wordModel)
 
                    _docPath = wordModel
                Catch ex As Exception
                    Throw ex
                End Try
            End Sub

Et la procédure qui permet l'insertion d'une image à un emplacement précis via un bookmark

Code:

1
2
3
4
5
6
7
            Public Sub InsertImage(ByVal bookmark As String, ByVal filename As String)
                Try
                    _word.ActiveDocument.Bookmarks.Item(bookmark).Range.InlineShapes.AddPicture(filename)
                Catch ex As Exception
                    Throw ex
                End Try
            End Sub

Cela à toujours fonctionné mais maintenant, ça me fait planter systématiquement Word au moment de l'insertion. :cfou:

Voici le code complet de la classe... si jamais ça peut être utile pour résoudre mon problème:

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.IO
Imports System.Web
Imports IWord = Microsoft.Office.Interop.Word
Imports System.Runtime.InteropServices.Marshal
 
Namespace SDEA
    Namespace Interop
        Public Class Word
            Implements IDisposable
#Region "Membres privés"
            Private _word As IWord.Application
            Private _doc As IWord.Document
            Private _docPath As String
#End Region
 
#Region "Propriétés publiques"
            Public ReadOnly Property WordObject() As IWord.Application
                Get
                    Return _word
                End Get
            End Property
 
            Public ReadOnly Property DocObject() As IWord.Document
                Get
                    Return _doc
                End Get
            End Property
 
            Public ReadOnly Property NB_Tables() As Integer
                Get
                    Return _doc.Tables.Count
                End Get
            End Property
 
            Public ReadOnly Property Tables() As IWord.Tables
                Get
                    Return _doc.Tables
                End Get
            End Property
#End Region
 
#Region "Constructeurs/Destructeurs"
            Sub New(ByVal wordModel As String, Optional ByVal showWordInstance As Boolean = True)
                Try
                    _word = New IWord.Application
 
                    _word.Visible = showWordInstance
                    _doc = _word.Documents.Add(wordModel)
 
                    _docPath = wordModel
                Catch ex As Exception
                    Throw ex
                End Try
            End Sub
#End Region
 
#Region "Procédures et fonctions publiques"
            Public Sub InsertImage(ByVal bookmark As String, ByVal filename As String)
                Try
                    _word.ActiveDocument.Bookmarks.Item(bookmark).Range.InlineShapes.AddPicture(filename)
                Catch ex As Exception
                    Throw ex
                End Try
            End Sub
 
            Public Sub InsertText(ByVal bookmark As String, ByVal text As String)
                Try
                    _word.ActiveDocument.Bookmarks.Item(bookmark).Range.Text = text
                Catch ex As Exception
                    Throw ex
                End Try
            End Sub
 
#Region "Procédures de gestion des yableaux"
            Public Sub InsererTableau(ByVal bookmark As String,
                                      Optional ByVal nbRows As Integer = 1,
                                      Optional ByVal nbCols As Integer = 1,
                                      Optional ByVal style As String = "")
 
                Dim oTable As IWord.Table = _doc.Tables.Add(_doc.Bookmarks.Item(bookmark).Range, nbRows, nbCols)
 
                If Not String.IsNullOrEmpty(style) Then
                    oTable.Style = style
                End If
            End Sub
 
            Public Sub InsererTableau(ByVal bookmark As String,
                                      ByRef tableSource As System.Web.UI.WebControls.Table,
                                      Optional ByVal style As String = "")
 
                Dim oTable As IWord.Table = _doc.Tables.Add(_doc.Bookmarks.Item(bookmark).Range, tableSource.Rows.Count, tableSource.Rows(0).Cells.Count)
 
                For r As Integer = 0 To tableSource.Rows.Count - 1
                    For c As Integer = 0 To tableSource.Rows(r).Cells.Count - 1
                        oTable.Cell(r + 1, c + 1).Range.Text = tableSource.Rows(r).Cells(c).Text
                    Next
                Next
 
                If Not String.IsNullOrEmpty(style) Then
                    oTable.Style = style
                End If
            End Sub
 
            Public Sub AjouterLigneTableau(ByRef table As IWord.Table)
                table.Rows.Add()
 
                For i As Integer = 1 To table.Rows(0).Cells.Count
                    table.Rows(table.Rows.Count).Cells.Add()
                Next
            End Sub
 
            Public Sub AjouterLigneTableau(ByRef table As IWord.Table, ByVal nbCells As Integer)
                table.Rows.Add()
 
                For i As Integer = 1 To nbCells
                    table.Rows(table.Rows.Count).Cells.Add()
                Next
            End Sub
#End Region
#End Region
 
#Region "IDisposable Support"
            Private disposedValue As Boolean
 
            Protected Overridable Sub Dispose(disposing As Boolean)
                If Not Me.disposedValue Then
                    If disposing Then
                        ' TODO: supprimez l'état managé (objets managés).
                    End If
 
                    ' TODO: libérez les ressources non managées (objets non managés) et substituez la méthode Finalize() ci-dessous.
                    ReleaseComObject(_doc)
                    ReleaseComObject(_word)
 
                    GC.Collect()
                    GC.WaitForPendingFinalizers()
 
                    ' TODO: définissez les champs volumineux à null.
                End If
                Me.disposedValue = True
            End Sub
 
            ' TODO: substituez Finalize() uniquement si Dispose(ByVal disposing As Boolean) ci-dessus comporte du code permettant de libérer des ressources non managées.
            Protected Overrides Sub Finalize()
                ' Ne modifiez pas ce code. Ajoutez du code de nettoyage dans Dispose(ByVal disposing As Boolean) ci-dessus.
                Dispose(False)
                MyBase.Finalize()
            End Sub
 
            Public Sub Dispose() Implements IDisposable.Dispose
                Dispose(True)
                GC.SuppressFinalize(Me)
            End Sub
#End Region
        End Class
    End Namespace
End Namespace

:merci:

23/02/2016, 14h17
ZenZiTone

J'aurais une petite question : la clef d'activation de Word est-elle toujours valide? Je me souviens avoir eu ce problème en installant une application utilisant les fonctions COM pour remplir un document Excel, sur un PC dont la clef était expirée. Par contre cela lançait bien Excel pour me prévenir, donc je ne pense pas qu'il s'agisse de cela.
23/02/2016, 14h36
Franck.H

Citation:

Envoyé par ZenZiTone

J'aurais une petite question : la clef d'activation de Word est-elle toujours valide? Je me souviens avoir eu ce problème en installant une application utilisant les fonctions COM pour remplir un document Excel, sur un PC dont la clef était expirée. Par contre cela lançait bien Excel pour me prévenir, donc je ne pense pas qu'il s'agisse de cela.

Non c'est pas ça le problème, ça m'ouvre bien Word et le document modèle mais ensuite à la première insertion ça fait planter Word et j'arrive sur l'exception sur visual studio.
23/02/2016, 15h13
ZenZiTone

Citation:

Envoyé par Franck.H

Cela à toujours fonctionné mais maintenant, ça me fait planter systématiquement Word au moment de l'insertion. :cfou:

Qu'est ce qui s'est passé? :aie: Un changement de version de Word, d'interop, Visual Studio, autre?
23/02/2016, 15h19
Franck.H

Citation:

Envoyé par ZenZiTone

Qu'est ce qui s'est passé? :aie: Un changement de version de Word, d'interop, Visual Studio, autre?

Rien du tout, à un moment je génère un fichier Word ça fonctionne et ensuite plus rien. J'ai même reconstruit le fichier modèle et me disant que lors d'un ajout j'ai merdé un truc mais rien n'y fait. Je pige vraiment pas.
23/02/2016, 15h41
Franck.H

Après quelques tests et surtout un pas-à-pas, cela ne plante pas, je pense que c'est dû à une liaison tardive peut être entre le programme et l'objet COM.
Suffit de trouver comment résoudre ce problème :aie:
23/02/2016, 20h28
clementmarcotte

Bonjour,

J'ai essayé un de mes vieux trucs. J'ai donné le numéro de l'erreur en pâture au moteur de recherche de MSDN (il faut cliquer sur la loupe pour voir la boîte de recherche. Surtout peser sur Enter pour lancer la recherche une fois le "mot" entré. Juste recliquer la loupe cela ne marche pas.)

Je ne sais pas si cela va régler ton problème, mais c'est une histoire de Word et Asp.net:

https://social.msdn.microsoft.com/Fo...forum=aspnetfr
24/02/2016, 08h21
Franck.H

:salut:

J'ai déjà fais des recherches et je suis également tombé sur ce post que j'ai d'ailleurs mis de côté au cas où car je n'ai pas encore testé l'application sur le serveur de dev.
Quoi qu'il en soit, à l'heure actuelle, ce post ne m'est d'aucune utilité. Comme je disais plus haut, cela fonctionnait à un moment puis plus après.

Suite à quelques tests, je me suis rendu compte qu'en fait, c'est le temps de chargement du modèle qui est en cause.
J'ai testé avec une temporisation à deux secondes puis ça fonctionne, c'est juste ça le problème en réalité, le temps d'ouverture du document.

Je ne sais pas s'il y a quelque chose de chose de plus propre qu'une petite temporisation mais en tout cas, ça fonctionne.
Je prend toutes solutions plus propres qu'un Threading.Thread.Sleep(2000) :aie:

:merci:
24/02/2016, 10h47
ZenZiTone

Citation:

Envoyé par Franck.H

Suite à quelques tests, je me suis rendu compte qu'en fait, c'est le temps de chargement du modèle qui est en cause.
J'ai testé avec une temporisation à deux secondes puis ça fonctionne, c'est juste ça le problème en réalité, le temps d'ouverture du document.

Je ne sais pas s'il y a quelque chose de chose de plus propre qu'une petite temporisation mais en tout cas, ça fonctionne.
Je prend toutes solutions plus propres qu'un Threading.Thread.Sleep(2000) :aie:

Interop ne propose pas d’événements permettant de savoir quand le doc est chargé?
24/02/2016, 11h35
Franck.H

Je ne sais pas, je n'ai pas encore regardé mais quoi qu'il en soit, maintenant, même avec la temporisation, ça me replante dans les pates :weird: :arf:
24/02/2016, 19h58
clementmarcotte

Bonjour,

Citation:

Envoyé par ZenZiTone

Interop ne propose pas d’événements permettant de savoir quand le doc est chargé?

Je n'ai jamais essayé cela dans "la vraie vie", mais il semblerait que Interop fournit une interface pour accéder à l'objet application de Word. Mais, on dirait que pour le reste, cela prend de l'huile de bras:

https://msdn.microsoft.com/fr-fr/lib...ffice.11).aspx
25/02/2016, 08h34
Franck.H

Ok merci, je testerais ceci.
03/03/2016, 09h17
Franck.H

Après avoir un peu regardé ce qui m'a été proposé sur l'objet Application, je l'utilise déjà dans ma classe en réalité.
J'utilise en effet bien un objet Application pour mon instance de Word et un objet Document pour le document créé à partir du modèle.

Ca plante toujours Word. Word se charge, charge le modèle et à la première tentative d'insertion, ça plante. Cela dit, ça plante surtout dans l'insertion d'images dans des cadres Texte.
La création de tableaux et même l'insertion d'images dans les tableaux ça fonctionne. Je me demande si les cadres texte sont vraiment fait pour accueillir des images :aie: