Discussion :

[safisafi]

Bonjour,

dans un service windows je veux lancer l'application Word, pour cela je fais appel à la fonction Open:

Code :

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

1
2
3
4
5
 
WordApp = New Word.Application
WordApp.Visible = True
MyDoc = WordApp.Documents.Open(CheminFile)
MyDoc.Activate()

le processus WINWORD.EXE est lancé et le service reste planté, si j'arrête le processus une exception de type ComException est lancé :

System.Runtime.InteropServices.COMException (0x800706BE): Échec de l'appel de procédure distante. (Exception de HRESULT : 0x800706BE)

sachant que le même code je l'ai testé dans une application WinForm et ça marche bien !

la fonction open ne marche pas dans un service windows ?
Merci.

[safisafi]

je donne plus de détail si cela peut aider
Voici ma fonction, celle ci ouvre un document modèle et le fusionne avec un fichier txt:

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
 
        Dim WordAppli As Word.Application
        Dim MergeDoc As Word.Document
        Try
 
            Dim TemplateFile As Object = "chemin fichier doc"
            Dim DataSourceFile As Object = "chemin fichier txt"
            Dim ObjMiss As Object = System.Reflection.Missing.Value 'Type.Missing
            Dim OFalse As Object = False
            Dim OTrue As Object = True
 
            'Starting the Word Application
            WordAppli = New Word.Application
            WordAppli.Visible = False
            'Open the Template file
            MergeDoc = WordAppli.Documents.Open(TemplateFile)
            'Open the Data Source
            Dim DSFormat As Object = Word.WdOpenFormat.wdOpenFormatText
            MergeDoc.MailMerge.OpenDataSource(DataSourceFile, DSFormat, OFalse, ObjMiss, OTrue, OFalse, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss, ObjMiss)
            'Perform the Mail Merge
            MergeDoc.MailMerge.Destination = Word.WdMailMergeDestination.wdSendToPrinter
            MergeDoc.MailMerge.SuppressBlankLines = False
            MergeDoc.MailMerge.Execute(OFalse)
 
          Catch exCom As COMException
            ' traitement
        Catch ex As Exception
            'traitement
        Finally
            'Close the template document.
            If Not MergeDoc Is Nothing Then MergeDoc.Close()
            If Not WordAppli Is Nothing Then WordAppli.Quit()
            MergeDoc = Nothing
            WordAppli = Nothing
        End Try

dans une winForm ce code marche très bien or dans le service windows, le service reste planté aucune exception n'est levée !!!!!

dans ce même service windows j'ai testé la fonction add pour ajouter un document, et open pour modifier un existant : les deux marchent!

je ne sais pas où se situe mon problème, est ce dans open ou dans l'appel à MailMerge ?