Discussion :

[gregml]

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 :

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
38
39
40
41
42
43
44
45
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

Bref, à l'issue de l'écriture de ce code, qui me semblait pourtant suffisant pour ce que je cherchais à réaliser, VB.net me renvoie les mêmes erreurs suivante (La variable n'est pas déclarée. Il peut être inaccessible en raison de son niveau de protection) : pour 'SignetNom', 'ValeurNom', 'SignetPrenom' et 'ValeurPrenom' aux lignes oWord.Selection.Bookmarks...

Quelqu'un pourrait-il m'aider à résoudre ce petit problème ?

Grég

[gregml]

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.

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
38
39
40
41
42
43
44
45
46
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