Ouvrir un Fichier Word affiché dans une ListBox

**Romain707** · 27/09/2011, 23h23

Salut à tous
Est-il possible d'ouvrir un fichier Word en cliquant sur celui-ci actuellement afficher dans une ListBox VisualBasic 2010.

Merci

**franticfranz** · 28/09/2011, 08h43

Bonjour,

Code :

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

    Process.Start("WINWORD.EXE","C:\Monfichier.docx")

ouvre votre document dans Microsoft Word.

**Pol63** · 28/09/2011, 09h23

ou mieux

Code :

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

process.Start("x:\dossiers\fichier.doc")

comme ca si le pc n'a pas word mais autre chose ca fonctionnera

**franticfranz** · 28/09/2011, 10h06

Envoyé par Pol63

ou mieux
process.Start("x:\dossiers\fichier.doc")

comme ca si le pc n'a pas word mais autre chose ca fonctionnera

Attention, si l'association des fichiers ".DOC" est mal configurée chez l'utilisateur, ça risque d'avoir des effets inattendus. Il est assez peu probable que ça arrive (quoique...), mais il vaut mieux envisager cette possibilité.

**Pol63** · 28/09/2011, 11h07

Envoyé par franticfranz

Attention, si l'association des fichiers ".DOC" est mal configurée chez l'utilisateur, ça risque d'avoir des effets inattendus. Il est assez peu probable que ça arrive (quoique...), mais il vaut mieux envisager cette possibilité.

ca utilise le programme par défaut pour ouvrir le fichier
s'il n'est pas le bon c'est de la faute de l'utilisateur et c'est modifiable dans windows
s'il n'y en a pas, process.start va déclencher une exception (on peut alors dire à l'utilisateur d'installer word)

**Romain707** · 28/09/2011, 11h23

où dois-je insérer ce code ? dans la Form load?
Merci

**franticfranz** · 28/09/2011, 11h28

Placez un bouton "Ouvrir" à coté de votre Listbox, et insérez le code dans l'évènement "Click"

**Pol63** · 28/09/2011, 12h04

Envoyé par Romain707

en cliquant sur celui-ci actuellement afficher dans une ListBox

Envoyé par Romain707

où dois-je insérer ce code ?

sur le clic dans le listbox, c'est toi même qui le demande ...

**Romain707** · 30/09/2011, 08h54

Merci pour les réponse mais le code ne fonctionne pas chez moi.
Je ne sais pas si j'ai bien formulé ma question.
Je possède une listBox contenant des fichiers "Word".
Le but et de lancer une recherche de fichier souhaité via un Textbox et l'ouvrir en cliquant dessus.
Merci de votre aide.

**franticfranz** · 30/09/2011, 11h38

Une capture d'écran aurait été la bienvenue.

Voilà ce que je comprends : Il y a une listbox qui contient une liste de noms de fichiers WORD (si je fais le rapprochement avec un autre post) ;

Le rôle du textbox est assez obscur : il permet de retrouver un nom de fichier dans la listbox ?

L'ouverture du fichier doit se faire après qu'on ai sélectionné son nom dans la listbox ?

**Romain707** · 30/09/2011, 14h53

Bonjour ,
C'est exactement ce que vous décrivez.
Il y a une listbox qui contient une liste de noms de fichiers WORD
Le rôle de la textbox permet de retrouver un nom de fichier dans la listbox ?
L'ouverture du fichier doit se faire après qu'on ai sélectionné son nom dans la listbox ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ListBox1.Items.AddRange(IO.Directory.GetFiles("C:\Test"))
        ListBox1.DataSource = Directory.GetFiles("C:\Test")
        Dim files() As String = System.IO.Directory.GetFiles("C:\Test")
        For i = 0 To files.Length - 1
            files(i) = Path.GetFileName(files(i))
        Next
        ListBox1.DataSource = files
 
    End Sub

**Pol63** · 30/09/2011, 15h14

le code qu'on t'a donné est censé fonctionner, donc c'est ton implémentation qui ne doit pas être bonne, montre nous le code ...

**Romain707** · 30/09/2011, 22h33

Voici mon code:

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Imports System.IO
 
Public Class Form1
 
    Private Property ListBoxFiles As Object
 
    Private Property HandledMouseEventArgs As Object
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ListBox1.Items.AddRange(IO.Directory.GetFiles("C:\Test"))
        ListBox1.DataSource = Directory.GetFiles("C:\Test")
        Dim files() As String = System.IO.Directory.GetFiles("C:\Test")
        For i = 0 To files.Length - 1
            files(i) = Path.GetFileName(files(i))
        Next
        ListBox1.DataSource = files
 
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
    'Boutton > Clear de Textbox1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Clear()
 
    End Sub
    'Boutton Open Files
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ListBox1.SelectedItems.Add(TextBox1.Text)
    End Sub
    'Code en ereure le Filtrage ne fonctionne pas 
    'Filtre de recherche
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.Clear()
        Dim count As Integer = (ListBox1.Items.Count - 1)
        Dim words As String
        For a = 0 To count
            words = ListBox1.Items.Item(a)
            If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                ListBox1.Items.Add(words)
            End If
        Next
    End Sub
    'Enregistrement de la Liste 2
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Diagnostics.EntryWrittenEventArgs) Handles EventLog1.EntryWritten
        Dim Filename As String = "C:\Test\essais.txt"
        My.Computer.FileSystem.WriteAllText(Filename, ListBox1.Text, True)
 
    End Sub
 
    Private Function driveList() As Object
        Throw New NotImplementedException
    End Function
 
    Private Function FolderList() As Object
        Throw New NotImplementedException
    End Function
    'Boutton > Actiualiser List 1
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox1.DataSource = Directory.GetFiles("C:\Test")
        Dim files() As String = System.IO.Directory.GetFiles("C:\Test")
        For i = 0 To files.Length - 1
            files(i) = Path.GetFileName(files(i))
        Next
        ListBox1.DataSource = files
    End Sub
    Private Function DriveInfo() As Object
        Throw New NotImplementedException
    End Function
 
    Private Function ListBox1Files() As Object
        Throw New NotImplementedException
    End Function
    'Boutton 5 > Quit
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Close()
    End Sub
 
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Process.Start("X:\Dossiers\fichier.doc")
    End Sub
End Class

**franticfranz** · 01/10/2011, 00h17

Remplacez :

Code :

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

        Process.Start("X:\Dossiers\fichier.doc")

Par :

Code :

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

1
2
3
4
5
        dim n as string
        If ListBox1.SelectedIndex > -1 Then
            n = "C:\Test\" & ListBox1.Items(ListBox1.SelectedIndex)
            Process.Start(n)
        End If

**Romain707** · 01/10/2011, 00h30

Merci de ton aide , ça marche bien, c'est cool.
Le seul point qui n'est pas élucider, c' est comment ouvrir le fichier en cliquant dessus dans la liste sans utiliser un bouton.
Merci de ton aide,vraiment merci.

**Pol63** · 01/10/2011, 07h56

à lire : http://plasserre.developpez.com/cours/vb-net/

et il faut avoir un peu de jugeote aussi, parce que recopier bêtement "x:\dossiers" sans comprendre que c'est un exemple c'est impressionnant

**franticfranz** · 01/10/2011, 10h15

Envoyé par Pol63

et il faut avoir un peu de jugeote aussi, parce que recopier bêtement "x:\dossiers" sans comprendre que c'est un exemple

+1

Envoyé par Romain707

Le seul point qui n'est pas élucider, c' est comment ouvrir le fichier en cliquant dessus dans la liste sans utiliser un bouton.

Théoriquement il suffirait de placer le code :

Code :

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

1
2
3
4
5
        dim n as string
        If ListBox1.SelectedIndex > -1 Then
            n = "C:\Test\" & ListBox1.Items(ListBox1.SelectedIndex)
            Process.Start(n)
        End If

Dans l'évènement SelectedIndexChanged du Listview, en y ajoutant quelques vérifications pour éviter d'ouvrir des documents Word à tout bout de champs.

D'un point de vue pratique et ergonomique, je pense que ce ne serait pas une bonne idée. Par exemple :

1. l'utilisateur sélectionne un fichier Word "blabla.doc", celui-ci s'ouvre.
2. l'utilisateur ferme le fichier Word, en pensant avoir terminé.
3. l'utilisateur se ravise : il veut ré-ouvrir le même fichier "blabla.doc"... Il est obligé d'ouvrir d'abord un autre fichier avant de pouvoir sélectionner "blabla.doc" à nouveau.

Le cumul de fonctions sur un contrôle est délicat. A vous de voir.

**Romain707** · 01/10/2011, 14h41

Pour répondre à Pol63,
Bien évidement que j'ai essayé avec le chemin qui me concerne.
Le résultat est le même, Word s'exécute et c'est tout.

**Romain707** · 05/10/2011, 14h03

Merci Franticfranz pour les explications.
à bientôt Romain

Ouvrir un Fichier Word affiché dans une ListBox

VB.NET

Discussions similaires

Partager

Partager