bonjour
cette procédure recupere les photos de mon repertoire
unité = Left(ActiveWorkbook.Path, 3)
ChDrive unité
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
jusque là tout va bien.La suite de la procédure affiche la combobox avec les
nom des photos récuperées...
Tout est presque parfait a l'exception du fait que les noms ne sont pas
triés par ordre alphabetique...
Y a t il une solution ?
Merci d'avance
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
papou
Bonjour Il existe plusieurs façons de procéder. Mais pour faire rapide, va voir ici : http://www.excelabo.net/xl/controles.php#triercombo
Cordialement Pascal
"Lionel" a écrit dans le message de news: 45f680ef$0$25917$
bonjour cette procédure recupere les photos de mon repertoire unité = Left(ActiveWorkbook.Path, 3) ChDrive unité ChDir ActiveWorkbook.Path nf = Dir("*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop
jusque là tout va bien.La suite de la procédure affiche la combobox avec les nom des photos récuperées... Tout est presque parfait a l'exception du fait que les noms ne sont pas triés par ordre alphabetique... Y a t il une solution ? Merci d'avance
Bonjour
Il existe plusieurs façons de procéder.
Mais pour faire rapide, va voir ici :
http://www.excelabo.net/xl/controles.php#triercombo
Cordialement
Pascal
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f680ef$0$25917$ba4acef3@news.orange.fr...
bonjour
cette procédure recupere les photos de mon repertoire
unité = Left(ActiveWorkbook.Path, 3)
ChDrive unité
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
jusque là tout va bien.La suite de la procédure affiche la combobox avec
les
nom des photos récuperées...
Tout est presque parfait a l'exception du fait que les noms ne sont pas
triés par ordre alphabetique...
Y a t il une solution ?
Merci d'avance
Bonjour Il existe plusieurs façons de procéder. Mais pour faire rapide, va voir ici : http://www.excelabo.net/xl/controles.php#triercombo
Cordialement Pascal
"Lionel" a écrit dans le message de news: 45f680ef$0$25917$
bonjour cette procédure recupere les photos de mon repertoire unité = Left(ActiveWorkbook.Path, 3) ChDrive unité ChDir ActiveWorkbook.Path nf = Dir("*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop
jusque là tout va bien.La suite de la procédure affiche la combobox avec les nom des photos récuperées... Tout est presque parfait a l'exception du fait que les noms ne sont pas triés par ordre alphabetique... Y a t il une solution ? Merci d'avance
Lionel
Ca fonctionne ...avec un peu de reflexion pour adapter mais ca fonctionne... Merci beaucoup "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il existe plusieurs façons de procéder. Mais pour faire rapide, va voir ici : http://www.excelabo.net/xl/controles.php#triercombo
Cordialement Pascal
"Lionel" a écrit dans le message de news: 45f680ef$0$25917$
bonjour cette procédure recupere les photos de mon repertoire unité = Left(ActiveWorkbook.Path, 3) ChDrive unité ChDir ActiveWorkbook.Path nf = Dir("*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop
jusque là tout va bien.La suite de la procédure affiche la combobox avec les nom des photos récuperées... Tout est presque parfait a l'exception du fait que les noms ne sont pas triés par ordre alphabetique... Y a t il une solution ? Merci d'avance
Ca fonctionne ...avec un peu de reflexion pour adapter mais ca fonctionne...
Merci beaucoup
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
uBEho3XZHHA.1508@TK2MSFTNGP06.phx.gbl...
Bonjour
Il existe plusieurs façons de procéder.
Mais pour faire rapide, va voir ici :
http://www.excelabo.net/xl/controles.php#triercombo
Cordialement
Pascal
"Lionel" <lionel.ma@wanadoo.fr> a écrit dans le message de news:
45f680ef$0$25917$ba4acef3@news.orange.fr...
bonjour
cette procédure recupere les photos de mon repertoire
unité = Left(ActiveWorkbook.Path, 3)
ChDrive unité
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
jusque là tout va bien.La suite de la procédure affiche la combobox avec
les
nom des photos récuperées...
Tout est presque parfait a l'exception du fait que les noms ne sont pas
triés par ordre alphabetique...
Y a t il une solution ?
Merci d'avance
Ca fonctionne ...avec un peu de reflexion pour adapter mais ca fonctionne... Merci beaucoup "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il existe plusieurs façons de procéder. Mais pour faire rapide, va voir ici : http://www.excelabo.net/xl/controles.php#triercombo
Cordialement Pascal
"Lionel" a écrit dans le message de news: 45f680ef$0$25917$
bonjour cette procédure recupere les photos de mon repertoire unité = Left(ActiveWorkbook.Path, 3) ChDrive unité ChDir ActiveWorkbook.Path nf = Dir("*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop
jusque là tout va bien.La suite de la procédure affiche la combobox avec les nom des photos récuperées... Tout est presque parfait a l'exception du fait que les noms ne sont pas triés par ordre alphabetique... Y a t il une solution ? Merci d'avance
