Bonjour à tout le forum !
J'ai un léger soucis, j'aimerai lister les fichier d'un répertoire (bien défini) dans un combobox (intégré à un groupe de control DANS mon ruban perso), je me suis servi d'un tuto dispo sur le net, cependant je planche pour récuperer les noms de chaque fichier dans la procédure ci dessous (tout fonctionne bien pour le reste) :
Quand j'execute le code pas à pas, la valeur de 'returnedval' change bien et m'indique à chaque boucle un nom de fichier different, mais une fois la procedure finie, je n'ai que le nom du fichier le plus recent (autant de fois qu'il y a d'item dans le repertoire.)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub ComboLabel(control As IRibbonControl, index As Integer, ByRef returnedVal) ChDir "C:\Users\nikovb\Documents\XLS" path2 = Dir("*.*", 16) While path2 <> "" returnedVal = path2 path2 = Dir Wend End Sub
Si quelqu'un pouvait me venir en aide svp, ou me donner un petit indice, je chercherais
Merci d'avance !
Partager