OUVRIR FICHIER à PARTIR d'une LISTOBOX

Question

Bonjour,

J'aimerai ouvrir des fichiers choisi dans une listbox. Problème c'est que dans une listbox nous faisons apparaître des cellules, et non directements des fichiers comment puige faire pour faire corresponsdre le texte de ma cellule avec celui de mon fichier? Merci beaucoup!

cs_Exploreur · Answer

Salut,

De toujours avec ton problème pour ouvrir des fichiers Word ?

A+
Exploreur

drikce06 · Answer

Il y a quoi dans ton listbox?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_Exploreur · Answer

Salut,

Par contre il y à un truc que je pige pas, tu dis :

Problème c'est que dans une listbox nous faisons apparaître des cellules

des cellules....tu es en VBA ou VB6 ??!

Tu sais sur tout tes posts, on ta demandé d'être le plus précis possible et clair, essaye SVP de l'être, pour être bien précis dans nos réponses...Quoi que des réponses tu en as eu sur tes autre posts...
 

A+
Exploreur

jrivet · Answer

Salut, Mais pourquoi ENCORE reposer la même question. Des membres te répondent déjà. ENFIN. Essaie ceci. Une Feuille Avec un listbox que tu ne renommes pas. Un répertoire C:\Test contenant quelques fichier pour tester. F5 pour tester. Click sur la listbox. Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Form_Load() Dim Fichier As String Dim Repertoire As String Repertoire = "C:\Test\" Fichier = Dir(Repertoire & "*.*") While Fichier <> "" Call List1.AddItem(Repertoire & Fichier) Fichier = Dir Wend End Sub

Private Sub List1_Click() Dim Fichier As String Fichier = List1.List(List1.ListIndex) Call ShellExecute(Me.hwnd, "open", Fichier, vbNullString, vbNullString, SW_MAXIMIZE) End Sub , ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

A la façon de Jrivet...

Dim OuvrirFichier As String

If OuvrirFichier  = "Comment on fait ?" Then
    Msgbox "Regarde toutes les reponses aux posts précedent !"
Else
    Msgbox "Tu as toutes les solutions en mains !"
End If   
  

A+
Exploreur

ticrain · Answer

¨Pour répondre à ta question exploreur je suis ni en VBA.

ticrain · Answer

Et si je repose les memes questions c'est parce que l'on ne ma pas encore donné la bonne réponse!

ticrain · Answer

Merci JRIVET mais ton prog marche aussi en VBA?

jrivet · Answer

Re,
"Pour répondre à ta question exploreur je suis ni en VBA." NI EN QUOI???
"
                
                Et si je repose les memes questions c'est parce que l'on ne ma pas encore donné la bonne réponse" PAS DU TOUT UNE EXCUSE POUR POLLUER LE FORUM

Alors as tu essayé ce que je te propose. 
- Oui ou non?: Est ce que ca réponds à tes besoins (un peu pénible d'avoir à te tirer les vers du nez)

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Excuse [auteurdetail.aspx?ID=1007130 ticrain]
             ton post n'était pas encore là. le mieux c'est encore de le testé toi même en VBA non?

@+: Ju£i?n
Pensez: Réponse acceptée

ticrain · Answer

Je suis en VBA, ton prog marche en vba?

ticrain · Answer

Je t'excuse tinkiète ok je v essayer je verrais bien

drikce06 · Answer

Tu le fait exprès, t'as testé? Si non et bien test tu veras si ça marche ou pas?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

Salut, Aller version VBA testée (qu'on en finisse) Un UserForm, Une ListBox renommé en List1 et HOP. J'espère qu moins que tu utilises bien un ListBox Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_MAXIMIZE = 3 Private Sub List1_Click() Dim Fichier As String Fichier = List1.List(List1.ListIndex) Call ShellExecute(0, "open", Fichier, vbNullString, vbNullString, SW_MAXIMIZE) End Sub

Private Sub UserForm_Activate() Dim Fichier As String Dim Repertoire As String Repertoire = "C:\Test\" Fichier = Dir(Repertoire & "*.*") While Fichier <> "" Call List1.AddItem(Repertoire & Fichier) Fichier = Dir Wend End Sub

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

ticrain · Answer

Par contre g essayer un truc de mon coté ca ne marche pas voila ce que g ecrit

private sub commandbutton1_click()
dim nomdoc as string
dim chemin as string

Nomdoc = listbox.text & ".doc"
Chemin = C:\&nomdoc

et ensuite je lance avec la commande shell, quand je fait ilm'ouvre un document word vierge et non ce que j'ai selectionné dans ma listbox a mon avis il me manque des lignes

jrivet · Answer

Re,
Testes mon code il fonctionne....

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Tu connais la syntaxe de la concaténation de chaine de caratére?
Chemin = C:\&nomdoc?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

ticrain · Answer

Bon ca marche les gards grâce avous voila ce que ca donne pour info:


private sub commandbutton1_click()
dim nomdoc as string
dim chemin as string

Nomdoc =  listbox1. List1.List(List1.ListIndex) 
Chemin  = C:\&nomdoc
et ensuite je lance avec la commande shell

ticrain · Answer

Nomdoc = listbox1.list(listbox1.listindex)

ouppssssss

cs_MPi · Answer

Je ne sais pas comment tu réussis à faire fonctionner ce code-là ???

nomdoc =   Listbox1.text 
chemin  = "c:" & nomdoc & ".doc"
et ensuite le shell

Y a des apostrophes à mettre...

MPi

ticrain · Answer

Voici ce que j'ai et rien ne se passe quand je clique sur ma listbox:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_MAXIMIZE = 3

Private Sub listbox1_Click()
Dim nomdoc As String
nomdoc = ListBox1.List(ListBox1.ListIndex)
Call ShellExecute(0, "open", nomdoc, vbNullString, "C:", SW_SHOWNORMAL)
End Sub

Private Sub user_activate()
Dim Fichier As String
   Dim Repertoire As String
   Repertoire = "C:"
   Fichier = Dir(Repertoire & "*.*")
   While Fichier <> ""
       Call ListBox1.AddItem(Repertoire & Fichier)
       Fichier = Dir
   Wend
End Sub

drikce06 · Answer

Mais en fait pourquoi tu n'utilise pas word directement

Dim WordApp as Word.Application

WordApp = creat.....
WordApp.Open(nomdoc)

Ce sera mieux de passer par là que par shellexecute

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

Question ?
Est ce que ta listbox contient des nom de fichiers car si elle en possède c'est pas grace à ce code
Moi je te propose
Private Sub UserForm_Activate()

et Private Sub User_Activate() (qui devient juste une procédure ou l'événement d'un objet nommé USER)

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

[auteurdetail.aspx?ID=786090 Drikce06 ARRETE TU VA NOUS L EMBROUILLER  RESTONS AVEC SHELLEXECUTE EN PLUS DES FOIS C EST DES XLS QU IL VEUT OUVRIR]






@+: Ju£i?n


Pensez: Réponse acceptée

drikce06 · Answer

De plus le code de jrivet marche nickel je viens de le tester

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_MAXIMIZE = 3


Private Sub ListBox1_Click()
Dim Fichier As String
   Fichier = ListBox1.List(ListBox1.ListIndex)
   Call ShellExecute(0, "open", Fichier, vbNullString, vbNullString, SW_MAXIMIZE)
End Sub


Private Sub UserForm_Activate()
   Dim Fichier As String
   Dim Repertoire As String
   Repertoire = "C:"
   Fichier = Dir(Repertoire & "*.*")
   While Fichier <> ""
       Call ListBox1.AddItem(Repertoire & Fichier)
       Fichier = Dir
   Wend
End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Oui t'as raison, en plus c'est chiant de naviguer d'un topic à l'autre!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

OUVRIR FICHIER à PARTIR d'une LISTOBOX

26 réponses

Votre réponse

Discussions similaires