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!

Salut,

De toujours avec ton problème pour ouvrir des fichiers Word ?

A+
Exploreur

 

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:

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

 

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

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

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

 

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

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

Merci JRIVET mais ton prog marche aussi en VBA?

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