Discussion :

[bucabuca]

salut
je cherche pourquoi le code si après me demande de saisir le mot de passe du fichier document au lieu de s'occuper lui même de la tache;

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
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim objWord As Object
        Dim strPassword As String = "mypasstring"
        objWord = CreateObject("Word.Application")
        objWord.visible = False
        objWord.application.WindowState = 2
        objWord.application.DisplayAlerts = False
        Try
            objWord.Documents.Open(Application.StartupPath & "\certificat.doc", PasswordDocument:=strPassword)
            Process.Start(Application.StartupPath & "\certificat.doc")
        Catch ex As Exception
            MsgBox("Cannot open word document", vbExclamation, "Password Protected")
        End Try
 
    End Sub

merci

[rv26t]

Bonjour,

Parce que Process.start n'a rien a voir avec tout le code précédant.
Il lance word en utilisant l'association de type de fichier de windows.

[bucabuca]

Bonjour,

Parce que Process.start n'a rien a voir avec tout le code précédant.
Il lance word en utilisant l'association de type de fichier de windows.

merci rv26t
si tu peut m'aider à vérifier ce code ci-dessous pour ouvrir ce fichier sans que je saisisse moi même le mot de passe :

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
 
Imports Microsoft.Office.Interop
Imports System.Data.OleDb
Imports System.Runtime.InteropServices
 
Class frmPrint
  Private Sub btnImprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimer.Click
        Dim strPassword As String = "mypasstring"
        Dim word As New Microsoft.Office.Interop.Word.Application
        Dim doc As Microsoft.Office.Interop.Word.Document
        word = CreateObject("Word.Application")
        doc = word.Documents.Open(Application.StartupPath & "\doc\att.doc", PasswordDocument:=strPassword)
       word.Visible = True
  End Sub
End Class

[rv26t]

Es-tu sur de ton mot de passe ?
Chez moi ce code est fonctionnel (word 2007 et document ayant une extension .docx ; description propriété fichier - type de fichier : Document Microsoft Office Word (.docx))

Voici la façon dont j'ai testé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Appword As Microsoft.Office.Interop.Word.Application
 
    Private Sub DocPasswordToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DocPasswordToolStripMenuItem.Click
        Try
            Appword = CreateObject("Word.Application")
            Appword.Documents.Open("d:\data\fichiers\doc1.docx", PasswordDocument:="mypasstring")
            Appword.Visible = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

[bucabuca]

Es-tu sur de ton mot de passe ?
Chez moi ce code est fonctionnel (word 2007 et document ayant une extension .docx ; description propriété fichier - type de fichier : Document Microsoft Office Word (.docx))

Voici la façon dont j'ai testé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Appword As Microsoft.Office.Interop.Word.Application
 
    Private Sub DocPasswordToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DocPasswordToolStripMenuItem.Click
        Try
            Appword = CreateObject("Word.Application")
            Appword.Documents.Open("d:\data\fichiers\doc1.docx", PasswordDocument:="mypasstring")
            Appword.Visible = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

pour mon application, j'utilise un fichier model Word 2003 (*.dot) ce qui ne me permet de l'ouvrir sans saisie de mot de passe !
vraiment je n'ai pu pas comprendre pourquoi?
Comme même j'ai arrivé à comprendre la leçon et la discussion est close et résolue

[rv26t]

Pense a marquer en résolu (bouton en bas à gauche)