M
Manon
Guest
Bonsoir à tous
J'ai bien chercher dans le forum mais je n'ai rien trouvé qui s'applique à ce cas.
Est-il possible de ne pas montrer le chemin complet d'un répertoire. Je vous explique mon cas:
Sur ma feui1
J'ai une listbox1 avec un
listfillrange Feuil2!$A1:$A30
Sur ma feuil2
J'ai une liste crée avec une macro:
Sub lancer()
Dim noms_de_fichiers As Variant, i As Integer, y As Integer
Application.ScreenUpdating = False
ChDrive 'D' ChDir 'D:\\ClientsRemi' noms_de_fichiers = créer_liste_fichiers('*.xls')
Workbooks('teeest7.xls').Activate Sheets('Feuil2').Select Range('A1', Range('A1').End(xlDown)).Select
Selection.ClearContents
Range('A1').Select
blablabla...
ma listbox contient donc:
D:\\Clients\\client1.xls
D:\\Clients\\client2.xls
D:\\Clients\\client4.xls
D:\\Clients\\client5.xls
D:\\Clients\\client6.xls
Ce que je cherche à obtenir dans ma listbox1:
Client1
Client2
Client3
Merci
Manon
J'ai bien chercher dans le forum mais je n'ai rien trouvé qui s'applique à ce cas.
Est-il possible de ne pas montrer le chemin complet d'un répertoire. Je vous explique mon cas:
Sur ma feui1
J'ai une listbox1 avec un
listfillrange Feuil2!$A1:$A30
Sur ma feuil2
J'ai une liste crée avec une macro:
Sub lancer()
Dim noms_de_fichiers As Variant, i As Integer, y As Integer
Application.ScreenUpdating = False
ChDrive 'D' ChDir 'D:\\ClientsRemi' noms_de_fichiers = créer_liste_fichiers('*.xls')
Workbooks('teeest7.xls').Activate Sheets('Feuil2').Select Range('A1', Range('A1').End(xlDown)).Select
Selection.ClearContents
Range('A1').Select
blablabla...
ma listbox contient donc:
D:\\Clients\\client1.xls
D:\\Clients\\client2.xls
D:\\Clients\\client4.xls
D:\\Clients\\client5.xls
D:\\Clients\\client6.xls
Ce que je cherche à obtenir dans ma listbox1:
Client1
Client2
Client3
Merci
Manon