Sub Combox(Combo, I) 'Chargement des combobox
Dim NbrFich%, Fichier$, Chemin$, Ext$
ReDim Tablo$(1 To 1)
Chemin = Combo: If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
Ext$ = "*" '<<< ici mettre l'extention sans le point !
'--------------------- Factures - Devis - Listing Annuelle - BL -------------------------
NbrFich = 0
Fichier = Dir(Chemin & "*." & Ext$) '"c:\save_devis_excel\Facture\"
While Fichier > ""
NbrFich = NbrFich + 1: ReDim Preserve Tablo(1 To NbrFich)
Tablo(NbrFich) = Fichier 'nom du fichier seul
'Tablo(NbrFich) = Chemin & Fichier 'chemin+ nom
'la date > FileDateTime(ChemFich & Fichier)
Fichier = Dir() 'suite
Wend
If NbrFich = 0 Then
MsgBox "aucun fichier !?", vbInformation, ""
Else
Select Case I
Case 1: ComboBox1.List = Tablo()
Case 2: ComboBox2.List = Tablo()
Case 3: ComboBox3.List = Tablo()
Case 4: ComboBox4.List = Tablo()
Case 5: ComboBox5.List = Tablo()
End Select
End If
Erase Tablo
'Dim A%, X%, Tablo()
'With Application.FileSearch
'.NewSearch
'.LookIn = combo '"c:\save_devis_excel\Facture\"
'.FileType = msoFileTypeOfficeFiles
'If .Execute(msoSortByFileName) > 0 Then
'X = .FoundFiles.Count
'ReDim Tablo(1 To X)
'For A = 1 To X
'Tablo(A) = Split(.FoundFiles(A), "\")(UBound(Split(.FoundFiles(A), "\")))
'Next
'If i = 1 Then ComboBox1.List = Tablo()
'If i = 2 Then ComboBox2.List = Tablo()
'If i = 3 Then ComboBox3.List = Tablo()
'If i = 4 Then ComboBox4.List = Tablo()
'If i = 5 Then ComboBox5.List = Tablo()
'Erase Tablo
'End If
'End With
'X = 0
End Sub