Discussion :

[veens777]

Bonjour,

Je souhaite que l'utilisateur puisse ouvrir un document word a partir d'une openfiledialog.
J'ai écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Sub BT_Ouvrir_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Ouvrir.Click
        Dim fn As String
        OpenFileDialog1.Filter = "Word Documents|*.doc;*.docx"
        openFileDialog1.Title = "OUVRIR"
        openFileDialog1.ShowDialog()
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then 'si l'utilisateur a bien cliqué sur ok
            fn = OpenFileDialog1.FileName
            FileOpen(1, fn, OpenMode.Random)
        End If
    End Sub

Lorsque je clique sur le bouton ouvrir après avoir selectionné un document word l'openfiledialog se ferme puis réapparait avec le chemin du fichier dans la zone de texte...mais aucun fichier s'ouvre...

Merci pour votre aide.

Cordialement.

[rv26t]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
        OpenFileDialog1.InitialDirectory = "C:\Users\Internet\Documents"
        OpenFileDialog1.Filter = "Word Documents|*.doc;*.docx"
        OpenFileDialog1.Title = "OUVRIR un document Word."
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then 'si l'utilisateur a bien cliqué sur ok
            Dim wApp As Word.Application
            wApp = (CreateObject("Word.Application"))
            Dim xlbook As Word.Document
            xlbook = wApp.Documents.Open(OpenFileDialog1.FileName)
            wApp.Visible = True
        End If

Il existe surement d'autre méthodes.
A+, Hervé.

[Sankasssss]

Bonjour,

La méthode de rv26 est bonne.

Concernant la votre, il faut regarder aux lignes 5 et 6 où vous avez openFileDialog1.ShowDialog qui est marqué deux fois (une fois sur chaque ligne) donc il est logique qu'il s'ouvre deux fois d'affilé.
Normalement, si vous aviez répondu ok sur la deuxième box, il aurait du ouvrir le document en question.
La solution aurait été de supprimer la ligne 5.

[veens777]

Bonjour,

La méthode de rv26 fonctionne parfaitement, et effectivement sankassss vous avez raison le pb venait de la,
If OpenFileDialog1.ShowDialog() = DialogResult.OK suffit pour ouvrir la boite de dialogue et récupérer la réponse de l'utilisateur...

Merci à tous les deux d'avoir résolu le pb.

Bonne journée.