Discussion :

[pitite]

Bonjour,

je suis débutante en VB.NET et j'ai écrit ce code pour simplement ouvrir un document Word mais il ne fonctionne pas. Est-ce que quelqu'un peut me dire où est l'erreur ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim oW As Object
 
    Private Sub Button1_Click()
        WordApp = CreateObject("Word.Application")
        WordApp.Visible = True
        Process.Start("C:\Utilisateurs\lculot\exemple.doc")
    End Sub
 
 
End Class

[Ascendris]

Essaie ça

Code :

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

1
2
3
Private Sub Button1_Click()
    Process.Start("C:\Utilisateurs\lculot\exemple.doc")
End Sub

[Livesecours]

bonjour,

sinon, moi j'utilise ça et ça marche très bien:

Code :

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

1
2
3
4
5
Dim doctrouve As Word.Document
            Dim app As Word.Application
            app = CreateObject("Word.Application")
            app.Visible = True
            doctrouve = app.Documents.Open(CType(Lstresult.Tag(Lstresult.SelectedIndex), Object))

[pitite]

Merci mais j'ai encore les erreurs suivantes :

Dans "Dim oWord As Word.Application"

Application est ambigu dans l'espace de nom "Microsoft.Office.Interop.Word"

"Dim oDoc As Word.Document"

Document est ambigu dans l'espace de nom "Microsoft.Office.Interop.Word"

"Me.Close"

erreur de syntaxe

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
 
Imports Word = Microsoft.Office.Interop.Word
 
Public Class Form1
 
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
 
    'Start word and open the document template
    oWord = CreateObject("Word.Application")
    oWord.Visible = True
 
 
    'Open a document
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("C:\Utilisateurs\lculot\Exemple.docx")
    End Sub
 
    'Convert .docx to .doc
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 
    End Sub
 
    'Replace a bookmark
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        oDoc = oWord.Document.Add
        oWord.Documents.Add("C:\Cartolink Desktop\Urbanisme\Templates\Avis\AvisAgric.dot")
        oDoc.Bookmarks.Item("INITIALES").Range.Text = "LC"
    End Sub
 
    'All done. Close this form
     Me.Close()
 
End Class

[Graffito]

Code :

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

1
2
3
4
5
Dim oWord As Microsoft.Office.Interop.Word.Application
Dim oDoc As Microsoft.Office.Interop.Word.Document
 

Sinon, le problème pourrait (mais j'y crois pas trop) venir du fait que plusieurs versions de Word sont installées sur le PC.

[pitite]

Merci mais ça ne change rien. Toujours les même erreurs et je n'ai que Word 2007 sur mon PC