dhiouf
XLDnaute Occasionnel
Salut tous le monde,
Pour lister les fichiers dans un combobox j'ai le code suivant :
Mon problème que les fichiers sont lister dans le combobox avec leur extension, est-il possible de les lister sans extension.
Merci d'avance
Pour lister les fichiers dans un combobox j'ai le code suivant :
Code:
Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function
Private Sub Workbook_Activate()
Worksheets(1).ComboBox1.Clear
If FichierExiste("C:\Program Files\Dépenses\sauve\*.ini") Then
Dim MyFile, MyPath, MyName
' Affiche les noms représentant des
' fichiers .ini
MyPath = "c:\Program Files\Dépenses\sauve\*.ini" ' Définit le chemin d'accès.
' Extrait la première entrée.
MyName = Dir(MyPath)
Do While MyName <> "" ' Commence la boucle tant qu'il trouve des .ini
Worksheets(1).ComboBox1.AddItem MyName 'ajoute dans la combobox
MyName = Dir ' Extrait l'entrée suivante.
Loop
Worksheets(1).ComboBox1.ListIndex = -1
End Sub
Merci d'avance