problème d'assembly [vb.net 2005]

Version imprimable

bonjours,

Alors après avoir déployer mon application et mis en production, j'ai fait une série de test sur l'ordinateur de mon client et le programme plante au moment ou je veux parcourir l'ordinateur avec une openFileDialog j ai alors comme erreur (je vais essayer d'être clair) :

Citation:

"Une exception non gérée s'est produite dans votre application si vous cliquez sur continuer[...]. Impossible de charger le fichier ou l'assembly Microsoft.Office.Interrop.Word, Version=12.0.0.0, Culture=neutral, PublicKey=Token=71e9bce111e9439c' ou une de ses dépendances. Le fichier specifié est introuvable.

Je tien à signaler que je développe sous Seven et que l'application va tourner sur un XP.

Je vous met la routine qui fait cela :

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
 
Public Sub convertirEnImage(ByVal idPage As String, ByVal sequence As Integer, ByVal typeTexte As String)
 
        Dim choisirFichier As New OpenFileDialog
        Dim cheminFichier As String = String.Empty
        Dim fichier As String = String.Empty
        Dim tmp As String()
 
        With choisirFichier
            .InitialDirectory = "c:\"
            .Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
            .FilterIndex = 2
            .RestoreDirectory = True
            .ShowDialog()
        End With
 
        cheminFichier = choisirFichier.FileName
        fichier = choisirFichier.SafeFileName
        tmp = choisirFichier.SafeFileName.Split("."c)
        choisirFichier.Dispose()
 
        If tmp(0) <> "" Then
 
            Dim objWord As New Microsoft.Office.Interop.Word.Application
            Dim objDoc As Microsoft.Office.Interop.Word.Document
            'Dim print As Printer
 
            objWord = CreateObject("Word.Application")
            'le document word est visible
            objWord.Visible = True
            objDoc = objWord.Documents.Open(cheminFichier)
            'affiche tout le document sur une page
            objDoc.ActiveWindow.ActivePane.View.Zoom.PageFit = Microsoft.Office.Interop.Word.WdPageFit.wdPageFitFullPage
            'objDoc.PageSetup.PageWidth + 356
 
            Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, Imaging.PixelFormat.Format32bppArgb)
 
 
 
            ' créer un objet graphique qui prendra le screenshot
            Dim gfx As Graphics = Graphics.FromImage(b)
 
 
            'copie du contenu de l'ecran 
            'Screen.PrimaryScreen.Bounds.Size
 
            gfx.CopyFromScreen(My.Computer.Screen.Bounds.X, My.Computer.Screen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
 
            tmp(0) = tmp(0) & ".jpg"
 
            'verifie l'existence du repertoire
            If Dir("C:\image", vbDirectory) = "" Then
                'si le repertoire n existe pas on le créer
                MkDir("C:\image")
            End If
 
            If My.Computer.Screen.Bounds.Width = 1440 Then
                ' Rectangle -> x,y points et largeur et hauteur
                Dim rectangle As New Rectangle(477, 155, 474, 667)
                b = b.Clone(rectangle, b.PixelFormat)
            ElseIf My.Computer.Screen.Bounds.Width = 1280 And My.Computer.Screen.Bounds.Height = 1024 Then
                Dim rectangle As New Rectangle(430, 156, 472, 671)
                b = b.Clone(rectangle, b.PixelFormat)
 
            ElseIf My.Computer.Screen.Bounds.Width = 1280 And My.Computer.Screen.Bounds.Height = 960 Then
                Dim rectangle As New Rectangle(380, 156, 472, 671)
                b = b.Clone(rectangle, b.PixelFormat)
 
            ElseIf My.Computer.Screen.Bounds.Width = 1280 And My.Computer.Screen.Bounds.Height = 768 Then
                Dim rectangle As New Rectangle(441, 153, 382, 539)
                b = b.Clone(rectangle, b.PixelFormat)
 
            ElseIf My.Computer.Screen.Bounds.Width = 1280 And My.Computer.Screen.Bounds.Height = 720 Then
                Dim rectangle As New Rectangle(441, 153, 382, 539)
                b = b.Clone(rectangle, b.PixelFormat)
 
            ElseIf My.Computer.Screen.Bounds.Width = 1280 And My.Computer.Screen.Bounds.Height = 600 Then
                Dim rectangle As New Rectangle(500, 150, 267, 376)
                b = b.Clone(rectangle, b.PixelFormat)
 
            ElseIf My.Computer.Screen.Bounds.Width = 1152 And My.Computer.Screen.Bounds.Height = 864 Then
                Dim rectangle As New Rectangle(345, 145, 447, 632)
                b = b.Clone(rectangle, b.PixelFormat)
 
            ElseIf My.Computer.Screen.Bounds.Width = 1024 And My.Computer.Screen.Bounds.Height = 768 Then
                Dim rectangle As New Rectangle(314, 153, 382, 539)
                b = b.Clone(rectangle, b.PixelFormat)
 
            ElseIf My.Computer.Screen.Bounds.Width = 800 And My.Computer.Screen.Bounds.Height = 600 Then
                Dim rectangle As New Rectangle(260, 151, 267, 376)
                b = b.Clone(rectangle, b.PixelFormat)
 
            End If
 
 
 
            ' sauvegarde le resultat a l'endroit demandé sous ke format demandé
            b.Save("C:\image\" & tmp(0), Imaging.ImageFormat.Jpeg)
 
            objWord.Documents.Close()
            objWord.Quit()
 
            cheminFichier = "C:\image\" & tmp(0)
 
            methode_base_de_donee.ajouterFichier(cheminFichier, "img/" & tmp(0))
 
            methode_base_de_donee.AjouterEnregistrement(idPage, sequence, typeTexte, , tmp(0), , , )
 
            MessageBox.Show("Ajout correctement effectué", "Succés", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            'parcourt de tout les processus ouvert sur la machine
            For Each Processus As Process In Process.GetProcesses()
                'si le processus WINWORD est actif
                If Processus.ProcessName.EndsWith("WINWORD") Then
                    With Processus
                        'on kill le process
                        .Kill()
                        'libère les ressources
                        .Close()
                    End With
                End If
            Next
        Else
            MessageBox.Show("Annulé")
        End If
 
 
    End Sub

En espèrent que vous puissiez m'aider sur ce problème, bien à vous.

04/05/2011, 09h03
sevyc64

Le problème vient plutôt à priori d'Office

Tu fait référence dans ton programme à une librairie qui appartient à Microsoft Office 2007. Probablement que sur tes postes clients ce n'est pas cette version qui est installée.

oui c est probable, mais alors tu me conseillerai de remplacer ceci :

Citation:

Dim objWord As New Microsoft.Office.Interop.Word.Application
Dim objDoc As Microsoft.Office.Interop.Word.Document

par quelle libraire afin d 'être certain que cela fonctionne sous n'importe quelle version de word ?

EDIT : ceci fairais - t- il l affaire ?
Code:

1 2 3 4 5 6 Dim word As Word.ApplicationClass = New ApplicationClass word.Visible = True Dim bVisible As Object = True Dim doc As Word.Document = word.Documents.Open(fichier, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, bVisible, missing, missing, missing, missing) doc.Activate()

04/05/2011, 09h26
sevyc64
Il y a une technique qui m'a été donné une fois, c'est d'utiliser la référence pour faire tout le code et la mise au point du programme. Une fois que le programme est terminé, il faut remplacer les déclarations d'objets du style
Code:

1 2 Dim objWord As New Microsoft.Office.Interop.Word.Application Dim objDoc As Microsoft.Office.Interop.Word.Document
par des déclarations génériques :
Code:

1 2 Dim objWord As Object Dim objDoc As Object
La création des intances doit passer par Automation en utilisant CreateObject("Word.Application"), mais ça, tu le fais déjà.
Ensuite il faut remplacer tout ce qui fait référence à ta référence par du code indépendant de la référence. Par exemple tu utilise l'énumération Microsoft.Office.Interop.Word.WdPageFit.wdPageFitFullPage, tu devra la remplacée directement par sa valeur numérique.

Une fois que tu n'as plus aucune référence Microsoft.Office.Interop.xxxxxx (et que ton code marche évidemment), tu supprime la référence de ton projet.

JE te conseille de tenter sur une copie de ton projet. Personnellement, je n'ai pas toujours réussi à faire marcher cette technique dans tous les cas.

ok, merci je vais m'orienter vers la solution que tu viens d'énoncer, merci je te tien au courant :ccool:

EDIT :

pour info ceci :
Code:

1 2 Microsoft.Office.Interop.Word.WdPageFit.wdPageFitFullPage
a été "prit" grace a une macro que j ai faite sous word vba ^^
je ne sais pas si c est correct mais je m'y suis prit de cette manière :
Code:

1 2 3 4 5 6 7 8 imports microsoft.office.interrop ... 'affiche tout le document sur une page Dim pagePlein As Word.WdPageFit = Word.WdPageFit.wdPageFitFullPage objDoc.ActiveWindow.ActivePane.View.Zoom.PageFit = pagePlein

10/05/2011, 07h58
dharkan
Bonjours,

après une petite semaine de réflexion je ne vois pas d'autres moyen que cette méthode :
Code:

1 2 objDoc.ActiveWindow.ActivePane.View.Zoom.PageFit = pagePlein
Maintenant j ai pensé à l'ouverture du fichier concerné s'il était possible d'écrire dans word une macro qui ferait sa sous VBA word, seulement je ne voit pas comment m'y prendre.
Quelqu'un pourrait-il m'expliquer svp ?
10/05/2011, 09h25
ostenhard

Bonjour,

Quel est le but de ton programme ? D'après ce que j'ai compris, c'est de prendre une capture d'un fichier Word.

Au lieu de manipuler le Word ce qui est assez compliqué (pb d'assembly,...), une possibilité ne serait pas de le convertir en pdf et de faire une capture de du pdf ?

en fait, j ai besoin de transformer une page word en image. Je ne choisit pas de transformer un doc pdf en image car alors il faudrait transformer le doc en pdf pour ensuite prendre l image.

sinon j ai essayer d'ecricre une macro via vb.net dans word comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim objWord As Object 'As New Microsoft.Office.Interop.Word.Application
                Dim objDoc As Object 'As Microsoft.Office.Interop.Word.Document
 
                objWord = CreateObject("Word.Application")
                'le document word est visible
                objWord.Visible = True
                objDoc = objWord.Documents.Open(cheminFichier)
                'affiche tout le document sur une page
 
                macro = "Sub macropagePleine() ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage End Sub"
 
                objDoc.CodeModule.AddFromString(macro)

mais a cette ligne :

Code:

1
2
 
 objDoc.CodeModule.AddFromString(macro)

il me renvoit cette erreur :

Citation:

Le membre public 'CodeModule' du type 'DocumentClass' est introuvable

10/05/2011, 09h35
sevyc64
Si tu regarde dans l'explorateur d'objet, l'énumération wdPageFit, tu verra que
wdPageFitFullPage à pour valeur 1

C'est cette valeur 1 que tu doit mettre dans ton code :
Code:

1 2 objDoc.ActiveWindow.ActivePane.View.Zoom.PageFit =1
EDIT : je sius un peu à la bourre pour répondre :mrgreen:
10/05/2011, 09h50
dharkan
Citation:
Envoyé par sevyc64

Si tu regarde dans l'explorateur d'objet, l'énumération wdPageFit, tu verra que
wdPageFitFullPage à pour valeur 1

C'est cette valeur 1 que tu doit mettre dans ton code :

Code:

1 2 objDoc.ActiveWindow.ActivePane.View.Zoom.PageFit =1

EDIT : je sius un peu à la bourre pour répondre :mrgreen:
omg alors là sevyc64, que dire à part grand merci et demander pourquoi des choses si "évidentes" ou du moins pas trop compliquées paraissent, en fait j ai pas de mot pour le dire :aie:.
Soit merci, à toi. Je n'avais pas pensé à l'explorateur d'objet mais j'avais consulté msdn mais sans succés. merci