Ouvrir un Fichier Word affiché dans une ListBox

Version imprimable

27/09/2011, 23h23
Romain707

Ouvrir un Fichier Word affiché dans une ListBox

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

Merci
28/09/2011, 08h43
franticfranz

Bonjour,

Code:

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

ouvre votre document dans Microsoft Word.
28/09/2011, 09h23
Pol63

ou mieux

Code:

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

comme ca si le pc n'a pas word mais autre chose ca fonctionnera
28/09/2011, 10h06
franticfranz

Citation:

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é.
28/09/2011, 11h07
Pol63

Citation:

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)
28/09/2011, 11h23
Romain707

où dois-je insérer ce code ? dans la Form load?
Merci
28/09/2011, 11h28
franticfranz

Placez un bouton "Ouvrir" à coté de votre Listbox, et insérez le code dans l'évènement "Click"
28/09/2011, 12h04
Pol63

Citation:

Envoyé par Romain707

en cliquant sur celui-ci actuellement afficher dans une ListBox

Citation:

Envoyé par Romain707

où dois-je insérer ce code ?

sur le clic dans le listbox, c'est toi même qui le demande ...
30/09/2011, 08h54
Romain707

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.
30/09/2011, 11h38
franticfranz

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 ?

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:

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

30/09/2011, 15h14
Pol63

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 ...

Voici mon code:

Code:

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

Remplacez :

Code:

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

Par :

Code:

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

01/10/2011, 00h30
Romain707

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.
01/10/2011, 07h56
Pol63

à 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 8O
01/10/2011, 10h15
franticfranz
Citation:

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

Citation:

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:

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.
01/10/2011, 14h41
Romain707

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.
05/10/2011, 14h03
Romain707

Merci Franticfranz pour les explications.
à bientôt Romain