Manipulation d'un document Word avec VB.NetRésolu

Question

Bonjour à tous,

Je procède actuellement à un dérouillage en règle de mes vieilles neurones usées ... exercice particulièrement éprouvant et me remplissant d'humilité...

Je tente vainement de réaliser une petite application consistant à renseigner un formulaire contenant deux "Textbox", appelant à y intégrer le Nom et le Prénom d'une personne. Ceci fait, on valide ces données avec un Bouton "Valider".
Cette validation va ouvrir un document Word, avec un chemin spécifique, où se trouvent dans le corps du document les deux signets à renseigner, comme ceci :

Document Word (à l'adresse : C:\Users\greg\Desktop\DocumentProjetSimplifie.docx):

Projet simplifié de remplissage de signets

Nom : (emplacement du signetNom)
Prénom : (emplacement du signetPrenom)
 


J'ai donc créé mon formulaire "Form1", contenant 1 label 'Nom' et une Textbox + 1 label 'Prenom' et une autre Textbox et un bouton 'Valider'

J'ai ensuite écrit le code suivant :


Option Strict On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim ValeurNom As String

ValeurNom = Me.TextBox1.Text

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim ValeurPrenom As String

ValeurPrenom = Me.TextBox2.Text
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim oWord As New Word.Application

oWord.Documents.Open(C:\Users\greg\Desktop\DocumentProjetSimplifie.docx)
        'Ouvrir un  document
        'oWord.Documents.Open("chemin document.doc")
        'rendre le document word visible
        oWord.Visible = True
        oWord.Selection.Bookmarks(SignetNom).Range.text = ValeurNom

oWord.Selection.Bookmarks(SignetPrenom).Range.text = ValeurPrenom

oWord.ActiveDocument.Close() 'on ferme le document
        oWord.Visible = False
        oWord.Quit() 'on ferme Word
    End Sub

End Class

gregml · Answer

J'ai cliqué sur je ne sais quel bouton et cela m'a immédiatement enregistré ma question sans que je n'ai pu terminé mon explication.
Bref, à l'issue de l'écriture de ce code, qui me semblait pourtant suffisant pour ce que je cherchais à réaliser, VB.net :
1) me renvoie à la ligne "oWord.Documents.Open (C:\Users\greg\Desktop\DocumentProjetSimplifie.docx) que C n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

2) De même, il me renvoie les mêmes erreurs pour 'SignetNom', 'ValeurNom', 'SignetPrenom' et 'ValeurPrenom' aux lignes oWord.Selection.Bookmarks...

Quelqu'un pourrait=il m'aider à résoudre ce petit problème ?

Merci, Grég

NHenry · Answer

Si tu actives "Option Strict" et "Option Explicit", tu auras un message d'erreur t'indiquant la source de ton problème ;)

gregml · Answer

Merci NHenry,
J'ai déjà trouvé qu'il me manquait des guillemets pour l'ouverture du document Word.

Je continue à chercher, Greg

gregml · Answer

Bonjour,

Je reviens vers tout le monde car j'ai un peu avancé...
Je n'ai plus d'erreur (avant débogage). Par contre, à l'exécution du programme, un message apparaît avant la fermeture du document Word :
" L'exception COMException n'est pas gérée."

Ainsi donc, à l'exécution :
1) Mon formulaire Nom Prenom apparaît correctement et me demande un Nom puis un Prénom.

2) Je peux valider en cliquant sur le Bouton 'Valider'

3) Une petite fenêtre s'ouvre : DocumentSimplifie.docx est vérouillé pour modification par 'greg'.
Voulez=vous :
a) Ouvrir une copie en lecture seule
b) Créer une copie locale et fusionner les modifications ultérieurement
c) Recevoir une notification quand la copie d'origine est disponible.

Ne sachant pas, je clique sur la première.

4) Le document DocumentSimplifie.docx s'ouvre mais affiche 'Lecture seule Ce document est verrouillé pour modification par un autre utilisateur'

5) Je ferme 'manuellement' le document et je me retrouve dans le code avec :
" L'exception COMException n'est pas gérée."

Voilà...Donc plus d'erreur dans la fenêtre d'erreurs mais pas de résultats pour autant ...

J'envoie le nouveau code à la suite et je vous remercie par avance si vous pouviez m'aider à résoudre mon problème.

Option Strict On
Option Explicit On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

Public Class FormNomPrenom
    Dim ValeurNom As String
    Dim ValeurPrenom As String
    Dim SignetNom As Bookmark
    Dim signetPrenom As Bookmark

Private Sub FormNomPrenom_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ValeurNom = Me.TextBox1.Text
        
    End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        ValeurPrenom = Me.TextBox2.Text
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim oWord As New Word.Application

oWord.Documents.Open("C:\Users\greg\Desktop\DocumentProjetSimplifie.docx")

oWord.Visible = True
        oWord.Selection.Bookmarks(SignetNom).Range.Text = "ValeurNom"

oWord.Selection.Bookmarks(signetPrenom).Range.Text = ValeurPrenom

oWord.ActiveDocument.Close()
        oWord.Visible = False
        oWord.Quit()
    End Sub

End Class

Merci, Grég

cs_Le Pivert · Answer

Bonjour,

Essaie ceci:

Option Strict On
Option Explicit On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word
Public Class Form1
    Dim ValeurNom As String
    Dim ValeurPrenom As String
    Dim SignetNom As String
    Dim signetPrenom As String

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        ValeurNom = Me.TextBox1.Text

End Sub

Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
        ValeurPrenom = Me.TextBox2.Text

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim oWord As New Word.Application
        oWord.Documents.Open("C:\Users\greg\Desktop\DocumentProjetSimplifie.docx")

oWord.Visible = True
        oWord.Selection.GoTo(Name:="SignetNom")
        oWord.Selection.Bookmarks("SignetNom").Range.Text = ValeurNom
        oWord.Selection.GoTo(Name:="signetPrenom")
        oWord.Selection.Bookmarks("signetPrenom").Range.Text = ValeurPrenom

oWord.ActiveDocument.Close()
        oWord.Visible = False
        oWord.Quit()

End Sub
End Class

gregml · Answer

Un très très très grand merci cs pivert...
Figure-toi que ça fonctionne.
Franchement, j'en ai presque la larme à l'oeil parce que j'ai vraiment galéré.

J'ai pas compris ce qui a vraiment changé, je vais m'y pencher. Mais je vous remercie tous deux pour m'avoir aidé.

MERCI A VOUS DEUX,
Greg

cs_Le Pivert · Answer

Ce qui a changé est visible à l'oeil :

sélection du signet et le nom du signet et entre guillemet  

oWord.Selection.GoTo(Name:="SignetNom")

gregml · Answer

Merci encore.

J'apprécie vraiment votre générosité.

Je vais ouvrir une nouvelle discussion concernant cette fois les classes. Mais avant toute chose, je me pose une question : peut-on gérer avec VB.net des PDF, comme on vient de la faire avec un document Word ?

Grég

Whismeril · Answer

Heu... Je n'ai pas compris ta question.
Et comme je le mettais plus haut tu changes de sujet.
Il est de bon goût d'ouvrir un nouveau sujet ou tu détailleras un peu plus ta question

gregml · Answer

Ok.

cs_Le Pivert · Answer

Depuis Office 2007 on peut enregistrer un document Word: extension .doc seulement en PDF

Essaie ce code:

Option Strict OnOption Explicit OnImports Microsoft.Office.InteropImports Microsoft.Office.Interop.WordPublic Class Form1    Dim ValeurNom As String    Dim ValeurPrenom As String    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged        ValeurNom = Me.TextBox1.Text    End Sub    Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged        ValeurPrenom = Me.TextBox2.Text    End Sub    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        Dim oWord As New Word.Application        oWord.Documents.Open("C:\Users\greg\Desktop\DocumentProjetSimplifie.doc") 'document en .doc        oWord.Visible = True        oWord.Selection.GoTo(Name:="SignetNom")        oWord.Selection.Bookmarks("SignetNom").Range.Text = ValeurNom        oWord.Selection.GoTo(Name:="signetPrenom")        oWord.Selection.Bookmarks("signetPrenom").Range.Text = ValeurPrenom        'enregistre en pdf        oWord.ActiveDocument.ExportAsFixedFormat(OutputFileName:= _            "C:\Users\greg\Desktop\DocumentProjetSimplifie.pdf", ExportFormat:=WdExportFormat.wdExportFormatPDF, _            OpenAfterExport:=False, OptimizeFor:=WdExportOptimizeFor.wdExportOptimizeForPrint, _            Range:=WdExportRange.wdExportAllDocument, From:=1, To:=1, Item:=WdExportItem.wdExportDocumentContent, _            IncludeDocProps:=True, KeepIRM:=True, _            CreateBookmarks:=WdExportCreateBookmarks.wdExportCreateHeadingBookmarks, DocStructureTags:=True, _            BitmapMissingFonts:=True, UseISO19005_1:=False)        oWord.ActiveDocument.Close()        oWord.Visible = False        oWord.Quit()    End SubEnd Class

cs_Le Pivert · Answer

Si c'est pour agir directement sur un pdf, c'est une autre paire de manche!

enfin tu sais que tu peux le faire à partir de Word au cas ou! 
 
bonne programmation

Manipulation d'un document Word avec VB.Net

12 réponses

Votre réponse

Discussions similaires