Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Misange
Bonjour, Une piste : récupérer les éléments de ton répertoire (voir sur excelabo page répertoires plusieurs macros permettant de faire cela) et soit les écrire dans un classeur pour t'en servir de source de données ensuite, soit construire un tableau (array) et utiliser les élements du tableau pour alimenter la liste avec un add item. bon courage par ce beau soleil !
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Bon dimanche,
Dans un userform avec vba, comment remplir une list box avec les noms des fichiers d'un répertoir bien définis?
Merci!
Kyvu On Line!
Bonjour,
Une piste : récupérer les éléments de ton répertoire (voir sur excelabo
page répertoires plusieurs macros permettant de faire cela) et soit les
écrire dans un classeur pour t'en servir de source de données ensuite,
soit construire un tableau (array) et utiliser les élements du tableau
pour alimenter la liste avec un add item.
bon courage par ce beau soleil !
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Bon dimanche,
Dans un userform avec vba, comment remplir une list box
avec les noms des fichiers d'un répertoir bien définis?
Bonjour, Une piste : récupérer les éléments de ton répertoire (voir sur excelabo page répertoires plusieurs macros permettant de faire cela) et soit les écrire dans un classeur pour t'en servir de source de données ensuite, soit construire un tableau (array) et utiliser les élements du tableau pour alimenter la liste avec un add item. bon courage par ce beau soleil !
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Bon dimanche,
Dans un userform avec vba, comment remplir une list box avec les noms des fichiers d'un répertoir bien définis?
Merci!
Kyvu On Line!
michdenis
Bonjour Kyvu,
En prenant pour acquis que ton combobox provient de la barre d'outils contrôle et qu'il est en Feuil1 sinon modifie cette ligne de code de la procédure.
Worksheets("Feuil1").ComboBox1.List = Tblo
à cause de la présence de la fonction Split, cette procédure requiert excel 2000 ou plus récent.
'-------------------------------- Sub ListBoxContenu()
Sub ListBoxContenu()
Dim X As Integer, Tblo(), A As Integer With Application.FileSearch .NewSearch .LookIn = "c:Excel" .FileType = msoFileTypeAllFiles 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 Worksheets("Feuil1").ComboBox1.List = Tblo Erase Tblo End If End With
End Sub '--------------------------------
Salutations!
"Kyvu" a écrit dans le message de news:da1001c43b1b$2361bc20$ Bon dimanche,
Dans un userform avec vba, comment remplir une list box avec les noms des fichiers d'un répertoir bien définis?
Merci!
Kyvu On Line!
Bonjour Kyvu,
En prenant pour acquis que ton combobox provient de la barre d'outils contrôle et qu'il est en Feuil1 sinon modifie
cette ligne de code de la procédure.
Worksheets("Feuil1").ComboBox1.List = Tblo
à cause de la présence de la fonction Split, cette procédure requiert excel 2000 ou plus récent.
'--------------------------------
Sub ListBoxContenu()
Sub ListBoxContenu()
Dim X As Integer, Tblo(), A As Integer
With Application.FileSearch
.NewSearch
.LookIn = "c:Excel"
.FileType = msoFileTypeAllFiles
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
Worksheets("Feuil1").ComboBox1.List = Tblo
Erase Tblo
End If
End With
End Sub
'--------------------------------
Salutations!
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de news:da1001c43b1b$2361bc20$a101280a@phx.gbl...
Bon dimanche,
Dans un userform avec vba, comment remplir une list box
avec les noms des fichiers d'un répertoir bien définis?
En prenant pour acquis que ton combobox provient de la barre d'outils contrôle et qu'il est en Feuil1 sinon modifie cette ligne de code de la procédure.
Worksheets("Feuil1").ComboBox1.List = Tblo
à cause de la présence de la fonction Split, cette procédure requiert excel 2000 ou plus récent.
'-------------------------------- Sub ListBoxContenu()
Sub ListBoxContenu()
Dim X As Integer, Tblo(), A As Integer With Application.FileSearch .NewSearch .LookIn = "c:Excel" .FileType = msoFileTypeAllFiles 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 Worksheets("Feuil1").ComboBox1.List = Tblo Erase Tblo End If End With
End Sub '--------------------------------
Salutations!
"Kyvu" a écrit dans le message de news:da1001c43b1b$2361bc20$ Bon dimanche,
Dans un userform avec vba, comment remplir une list box avec les noms des fichiers d'un répertoir bien définis?
Merci!
Kyvu On Line!
Pascal Engelmajer
Salut, un exemple de liste de fichier dans une ComboBox (répertoire et extension par défaut et modifiables) http://www.ilyapa.net/baseExcel/usrListeFichiers.xls reste valable si on utilise une ListBox -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Kyvu" a écrit dans le message de news: da1001c43b1b$2361bc20$ Bon dimanche,
Dans un userform avec vba, comment remplir une list box avec les noms des fichiers d'un répertoir bien définis?
Merci!
Kyvu On Line!
Salut,
un exemple de liste de fichier dans une ComboBox (répertoire et extension
par défaut et modifiables)
http://www.ilyapa.net/baseExcel/usrListeFichiers.xls
reste valable si on utilise une ListBox
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: da1001c43b1b$2361bc20$a101280a@phx.gbl...
Bon dimanche,
Dans un userform avec vba, comment remplir une list box
avec les noms des fichiers d'un répertoir bien définis?
Salut, un exemple de liste de fichier dans une ComboBox (répertoire et extension par défaut et modifiables) http://www.ilyapa.net/baseExcel/usrListeFichiers.xls reste valable si on utilise une ListBox -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Kyvu" a écrit dans le message de news: da1001c43b1b$2361bc20$ Bon dimanche,
Dans un userform avec vba, comment remplir une list box avec les noms des fichiers d'un répertoir bien définis?
