Fichier dans une ListBox

[Riri]

Bonjour le Forum,

J'ai une ListBox ou je récupère les fichiers d'un répertoire , je voudrais savoir comment faire pour activer le fichier depuis la ListBox avec un simple Click sur le Nom du fichier qui apparait dans la ListBox.

De plus je ne suis pas arriver à lister cette même liste sur une feuille excel.
Toute la liste défile dans la même cellule.

J'espère que vous pourrez m'aider.

Merci d'avance pour tous............Riri

 

[bipbipcoyote]

récupérer la liste dans la feuille

Sub RecupNomFichier(ByVal Chemin As String, ByRef Tableau As Variant)
Dim Fichier As String
Dim Compteur As Integer
Dim LigneCompteur As Integer
Chemin = "C:\Sauvegarde\*.*"
'Application.InputBox(Prompt:="Quel répertoire voulez-vous visualiser?")
'Chemin = Chemin + "\*.*"
'Range("B1") = Chemin
Compteur = 1
Fichier = Dir(Chemin)
Do While (Len(Fichier) > 0)
ReDim Preserve Tableau(Compteur)
Tableau(Compteur - 1) = Fichier
LigneCompteur = Compteur
ActiveSheet.Range("B" & LigneCompteur).Value = Tableau(Compteur - 1)
Compteur = Compteur + 1
Fichier = Dir()
Loop
End Sub

http://www.cathyastuce.com/w-agora/view.php?bn=cathyastuce_vba&key=1070642483&pattern=liste+de+fichiers