Discussion :

[Romain707]

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

Merci

[franticfranz]

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]

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]

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]

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]

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

[franticfranz]

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

[Pol63]

en cliquant sur celui-ci actuellement afficher dans une ListBox

où dois-je insérer ce code ?

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

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

[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 ?

[Romain707]

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]

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]

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