Bonjour,
Je souhaiterais de l'aide pour modifier cette recherche qui ne fonctionne plus
Merci d'avance de l'aide que vous pourriez m'apporter
Sub Combox(combo, i) 'Chargement des combobox
Dim X%, Tblo(), A%
'--------------------- Factures - Devis - Listing Annuelle - BL -------------------------
With Application.FileSearch
.NewSearch
.LookIn = combo '"c:\save_devis_excel\Facture\"
.FileType = msoFileTypeOfficeFiles
If .Execute(msoSortByFileName) > 0 Then
X = .FoundFiles.Count
ReDim Tblo(1 To X)
For A = 1 To X
Tblo(A) = Split(.FoundFiles(A), "\") _
(UBound(Split(.FoundFiles(A), "\")))
Next
If i = 1 Then ComboBox1.List = Tblo
If i = 2 Then ComboBox2.List = Tblo
If i = 3 Then ComboBox3.List = Tblo
If i = 4 Then ComboBox4.List = Tblo
If i = 5 Then ComboBox5.List = Tblo
Erase Tblo
End If
End With
X = 0
End Sub
Je souhaiterais de l'aide pour modifier cette recherche qui ne fonctionne plus
Merci d'avance de l'aide que vous pourriez m'apporter
Sub Combox(combo, i) 'Chargement des combobox
Dim X%, Tblo(), A%
'--------------------- Factures - Devis - Listing Annuelle - BL -------------------------
With Application.FileSearch
.NewSearch
.LookIn = combo '"c:\save_devis_excel\Facture\"
.FileType = msoFileTypeOfficeFiles
If .Execute(msoSortByFileName) > 0 Then
X = .FoundFiles.Count
ReDim Tblo(1 To X)
For A = 1 To X
Tblo(A) = Split(.FoundFiles(A), "\") _
(UBound(Split(.FoundFiles(A), "\")))
Next
If i = 1 Then ComboBox1.List = Tblo
If i = 2 Then ComboBox2.List = Tblo
If i = 3 Then ComboBox3.List = Tblo
If i = 4 Then ComboBox4.List = Tblo
If i = 5 Then ComboBox5.List = Tblo
Erase Tblo
End If
End With
X = 0
End Sub