Bonjour
Demain c'est la rentrée, yepeeeee.
Je voulais dire ouin !
Bon. En attendant demain, je me torture avec le problème suivant:
J'ai un UserForm ordinaire avec un ListBox1 où s'affichent tous les fichiers Excel qui contiennent le mot 'Copie' dans le nom, du dossier/sous-dossiers C:\\Excel. Le code est:
La question est comment faire pour:
1) Ne pas afficher dans ce ListBox1 le chemin complet des fichiers trouvé, mais seulement leur nom, en gardant la possibilité de lancer leur ouverture par Workbooks.Open ListBox1.Value (ou autre code alors)
2) Même chose mais pour l'extension .xls, ne pas l'afficher.
Je vous souhaite une bonne rentrée mais j'ai besoin de votre aide !
Merci,
Mi_
Demain c'est la rentrée, yepeeeee.
Je voulais dire ouin !
Bon. En attendant demain, je me torture avec le problème suivant:
J'ai un UserForm ordinaire avec un ListBox1 où s'affichent tous les fichiers Excel qui contiennent le mot 'Copie' dans le nom, du dossier/sous-dossiers C:\\Excel. Le code est:
Code:
Private Sub UserForm_Initialize()
Dim I As Long
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = 'C:\\Excel'
.Filename = '*Copie*'
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
ListBox1.AddItem .Item(I)
Next I
End With
End With
End Sub
La question est comment faire pour:
1) Ne pas afficher dans ce ListBox1 le chemin complet des fichiers trouvé, mais seulement leur nom, en gardant la possibilité de lancer leur ouverture par Workbooks.Open ListBox1.Value (ou autre code alors)
2) Même chose mais pour l'extension .xls, ne pas l'afficher.
Je vous souhaite une bonne rentrée mais j'ai besoin de votre aide !
Merci,
Mi_