List fichier *.xls dans listbox USF

[XC2ONE]

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]

bonsoir XC2ONE

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

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

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

les procedures sont à placer dans ton UserForm


bonne soiree
MichelXld

 

[julos08]

Bonjour a tous,

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

Merci.

 

[XC2ONE]

GRAND MERCI

TOUT EST OK

BONNE SOIREE