Fichiers and listbox

Version imprimable

23/06/2006, 10h56
sat478

Fichiers and listbox

Bonjour,

voici mon problème : à l'aide d'un CommonDialog, je souhaite laisser la possibilité à l'utilisateur d'ouvrir des fichiers de type excel.

En fait, seuls les noms de ces fichiers seront ensuite affiché dans une listbox.

A chaque fois que l'utilisateur cliquera sur l'un des items de la listbox, les textbox à côté se rempliront à partir des valeurs qui se trouvent dans le fichier excel correspondant.

Mais je ne vois pas comment faire pour à la fois affiché le nom du fichier dans la listbox et conservé le chemin complet du fichier. Lorsque je cliquerai sur mon item, comment connaître le nom du chemin excel pour pouvoir aller récupérer les informations correspondantes ?

Quelqu'un peut il m'aider ? D'avance merci
23/06/2006, 10h59
Theocourant

Bonjour,

Une solution serait d'enregistrer les noms complets des fichiers Excel dans un tableau dynamique.

+

Théo
27/06/2006, 00h04
Vesta

Comme il t'a répondu, un tableau contenant

Index Nomfichier cheminfichiercomplet
0 "1.xls" "c:\1.xls"
1 "2.xls" "c:\Mes Documents\2.xls"
3 "ddd.xls" "c:\Mes Documents\ddd.xls"

Tu remplis ta liste grace a ton tableau ett donc quand son sélectionne un index dans une liste on récupère ce no et grace au tableau on récupère le nom du fichier.
27/06/2006, 02h04
zazaraignée

ou encore un tableau contenant uniquement les adresses comlètes des fichiers aux mêmes indices que les noms de fichiers dans le listbox...
27/06/2006, 08h58
Vesta

Citation:

Envoyé par zazaraignée

ou encore un tableau contenant uniquement les adresses comlètes des fichiers aux mêmes indices que les noms de fichiers dans le listbox...

Il est vrai qu'il n'est pas trop compliqué de retrouver le nom du fichiers si on a le nom complet... C'est encore mieu.
27/06/2006, 14h12
Theocourant

Citation:

Envoyé par Vesta

Il est vrai qu'il n'est pas trop compliqué de retrouver le nom du fichiers si on a le nom complet... C'est encore mieu.

Salut,

Je dirais de faire qu'en même attention dans le cas de fichiers en doublon ou au même nom (mais pas le même emplacement)...

+

Théo
27/06/2006, 21h39
jmfmarques

comprends pas ...
voilà un cas où l'utilisation toute bête d'un drivelist, d'un dirlist et d'un filelist donnerait tout d'un coup !....(on connaîtrait le chemin complet du répertoire et le nom du fichier...) que manquerait-il ? et pouquoi ajouter une listbox (encore que ce serait tout-à-fait réalisable avec la plus grande facilité, une fois le répertoire choisi connu, en utilisant tout bêtement dir...)
10/07/2006, 11h47
spileo

Bonjour,
je voudrais sélectionner certains fichiers d'un même type contenus dans un répertoire et générer un tableau dynamique contenant leur emplacement en vue de les exploiter dans un fichier xml.
Pour cela j'utilise un DriveListBox, un DirListBox, un FileListBox et une ListBox. L'option MultiSelect du FileListBox est Extended pour pouvoir mettre en surbrillance les noms des fichiers dans le FileListBox grâce aux touchec Ctrl et Shift. Je ne parviens pas à ajouter les noms des fichiers qui apparaissent en surbrillance dans le FileListBox.
Quelqu'un aurait-il une idée?
Merci.
10/07/2006, 11h52
jmfmarques

montre-nous (nécessaire) le code que tu as écrit pour tenter d'y parvenir, s'il te plait.

Voici le code.
Il manque pas mal de chose notamment la gestion de l'erreur quand on sélectionne un lecteur cd ne contenant pas de cd dans le DriveListBox.

Code:

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
 
Private Sub cmdAjouter_Click()
liste.AddItem File.FileName
If Trim(File) <> "" Then
Else
    msg = "Vous devez saisir un ou plusieurs fichiers!"
    MsgBox msg
End If
End 
 
Private Sub cmdEffacer_Click()
liste.Clear 'efface le contenu de la liste
End 
 
Private Sub cmdQuitter_Click()
'Quitter le programme
Title$ = "Quitter l' application!"
msg = "Voulez-vous vraiment quitter sans programmer de batch?"
Reponse% = MsgBox(msg, 4 + 32, Title$)
If Reponse% = 6 Then End
End Sub
 
Private Sub Dir_Change()
File.Path = Dir.Path
End 
 
Private Sub Drive_Change()
Dir.Path = Drive.Drive
End Sub

En fait c'était au niveau de la ligne liste.additem que je ne savais pas quoi mettre.

10/07/2006, 18h27
avigeilpro

Et tu utilise toujours le Commondialog malgré le DriveListBox, le DirListBox, le FileListBox et la ListBox ?
10/07/2006, 23h07
spileo

1 pièce(s) jointe(s)

Salut.
Je n'utilise plus ni le DriveListBox, ni le FileListBox car je n'ai pas trouvé de code permettant de faire passer les noms des fichiers mis en surbrillance de manière discontinue dans la ListBox.
Mais le code avec commondialog ça marche bien et ça permet de récupérer le contenu de la listbox dans un tableau dynamique pour l'exploiter dans un autre fichier.