List fichier *.xls dans listbox USF

XC2ONE · 8 Mars 2005

Bonjour le Forum,

Voilà je cherche à savoir comment dans un USF, on peut sélectionner un fichier XLS dans un répertoire (le même que le fichier source).

Ex c:\\data\\01.XLS
\\02.XLS
\\03.XLS

1 - On ouvre 01.XLS, USF d'acceuil qui permet d'obtenir dans une ListBox la visu des autres fichiers prévus dans le même répertoire et de pouvoir les ouvrir en cliquant dessus.

2 - Je souhaiterais que l'initialisation de la ListBox permette de visualiser les fichiers quelle que soit le répertoire source selon qu'on mette les fichiers ailleurs. La base étant que le fichier source 01.XLS est tjs présent dans le même répertoire que les autres.

Grand Merci d'Avance à Vous.

XC2ONE

MichelXld · 8 Mars 2005

bonsoir XC2ONE

pour lister les fichiers XLS dans la listBox , lors de l'initialisation de l'USF

Code:

Private Sub UserForm_Initialize()
Dim Fichier As String

Fichier = Dir(ThisWorkbook.Path & '\\*.xls')
Do While Fichier <> ''
If Fichier <> ThisWorkbook.Name Then ListBox1.AddItem Fichier
Fichier = Dir
Loop

End Sub

ensuite ouverture d'un classeur lors d'un clic sur le nom dans la liste

Code:

Private Sub ListBox1_Click()
ActiveWorkbook.FollowHyperlink ThisWorkbook.Path & '\\' & ListBox1
Unload Me
End Sub

les procedures sont à placer dans ton UserForm

bonne soiree
MichelXld

julos08 · 8 Mars 2005

Bonjour a tous,

Michel comment faire pour ouvrir non pas le fichier mais le dossier dans windows ou se trouve les fichiers

Merci.

XC2ONE · 8 Mars 2005

GRAND MERCI

TOUT EST OK

BONNE SOIREE

List fichier *.xls dans listbox USF

XC2ONE

XLDnaute Junior

MichelXld

XLDnaute Barbatruc

julos08

Guest

XC2ONE

XLDnaute Junior

Discussions similaires