Discussion :

[amandon]

Bonjour à tous ,

Voila j'ai creer un code mais je bloque pour un import automatique je vous explique :

j'ai un formulaire ci dessous :

Private Sub importer_Click()

et pour l'instant le code en cliquant sur importer alimente la zone de liste à coter avec les chemin de fichier que je choisi manuellement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
fichierchoisi = Application.GetOpenFilename("Fichier Excel (*.xls),*.xls", , "Séléctionner un fichier Excel")
 
If (LCase(fichierchoisi) <> "faux" And fichierchoisi <> "0") Then
    liste_fichier.AddItem (fichierchoisi)
End If
End Sub

l'objectif que je cherche a avoir c'est qu'en cliquant sur importer la liste de fichier soit alimenter en scannant le dossier et les sous dossier du repertoire ou ce trouve le classeur executant en ne remontant que les fichier dont le nom compte un partie de texte spécifique.

Merci d'avance pour votre aide .