ouverture d'un fichier dans une list box

Bonjour !

"maric" nous a écrit ...

J'ai`fait un USF qui récupère tous les fichiers d'un
dossier et les affiche dans une listbox.
Je souhaiterai, lorsque l'utilisateur a sélectionné le
fichier désiré au clic, que celui-ci s'ouvre mais.....
je sais pas quel code mettre derrière le clic

On suppose que c'est des documents Word (?) Un peu comme ça:
Documents.Open FileName:= Repertoire & ListBox1.Value

Anacoluthe
« Ce matin, j'ai fait l'ouverture de la pêche.
Rien de neuf... Il y a toujours un noyau à l'intérieur. »
- Patrick SÉBASTIEN

Bonsoir maric,

Non testé !
Il faut garder l'index de la valeur sélectionnée :

Dim IndexSel as integer

Private Sub Ma ListBox_Click( index As Long)
IndexSel = Index
end sub

Puis s'en servir
Quelque chose comme :
Documents.Open FileName:=malisteBox.list(Indexsel)

A+

Bonjour,
J'ai`fait un USF qui récupère tous les fichiers d'un
dossier et les affiche dans une listbox.
Je souhaiterai, lorsque l'utilisateur a sélectionné le
fichier désiré au clic, que celui-ci s'ouvre mais.....
je sais pas quel code mettre derrière le clic

Merci de m'aider

A+

Hello,
j'ai essayé mais ca ne va pas
Je te donne le code mis à l'initialisation peutêtre que
cela pourra t'aider à me "dépanner"

Initilaisation :
Dim MonChemin as string
MonChemin = Dir("C:SocieteVenteMandat")
do while MonChemin <> ""
lbFichier.additem MonChemin
MonChemin = dir
loop

au clic j'ai essayé
Documents.open filename :=MonChemin & LbFichier.value

mais ça bogue
Peut-être que toi grand (e) voyant(e) voit l'erreur

Merci et A+

-----Message d'origine-----
Bonjour !

"maric" nous a écrit ...

J'ai`fait un USF qui récupère tous les fichiers d'un
dossier et les affiche dans une listbox.
Je souhaiterai, lorsque l'utilisateur a sélectionné le
fichier désiré au clic, que celui-ci s'ouvre mais.....
je sais pas quel code mettre derrière le clic

On suppose que c'est des documents Word (?) Un peu comme
ça:

Documents.Open FileName:= Repertoire & ListBox1.Value

Anacoluthe
« Ce matin, j'ai fait l'ouverture de la pêche.
Rien de neuf... Il y a toujours un noyau à
l'intérieur. »

- Patrick SÉBASTIEN

.

Bonjour Maric,
Essaye ceci
Philippe
=== Le code ==== Option Explicit
Dim MonChemin As String

Private Sub lbFichier_Click()
Documents.Open FileName:=MonChemin & lbFichier.Value
End Sub

Private Sub UserForm_Initialize()
Dim Liste As String
MonChemin = "C:SocieteVenteMandat"
Liste = Dir(MonChemin & "*.doc")

Do While Liste <> ""
lbFichier.AddItem Liste
Liste = Dir
Loop
End Sub


"maric" <luyetkungmc@netplus.ch> a écrit dans le message de
news:05fd01c364b5$55b55070$a301280a@phx.gbl...
Hello,
j'ai essayé mais ca ne va pas
Je te donne le code mis à l'initialisation peutêtre que
cela pourra t'aider à me "dépanner"

Initilaisation :
Dim MonChemin as string
MonChemin = Dir("C:SocieteVenteMandat")
do while MonChemin <> ""
lbFichier.additem MonChemin
MonChemin = dir
loop

au clic j'ai essayé
Documents.open filename :=MonChemin & LbFichier.value

mais ça bogue
Peut-être que toi grand (e) voyant(e) voit l'erreur

Merci et A+

-----Message d'origine-----
Bonjour !

"maric" nous a écrit ...

J'ai`fait un USF qui récupère tous les fichiers d'un
dossier et les affiche dans une listbox.
Je souhaiterai, lorsque l'utilisateur a sélectionné le
fichier désiré au clic, que celui-ci s'ouvre mais.....
je sais pas quel code mettre derrière le clic

On suppose que c'est des documents Word (?) Un peu comme
ça:

Documents.Open FileName:= Repertoire & ListBox1.Value

Anacoluthe
« Ce matin, j'ai fait l'ouverture de la pêche.
Rien de neuf... Il y a toujours un noyau à
l'intérieur. »

- Patrick SÉBASTIEN

.