Ouvrir liste facture où devis

bonjour a tous et toutes et le forum

j'ai trouvé sur le site de Michel Pierron un code qui permet d'ouvrir le contenu d'un dossier dans une listbox dès le clic sur le bouton et aussi d'ouvrir le fichier sélectionner dans la istbox

je l'ai adapter a mon projet futur afin de rechercher mes devis et factures mais je bute car je ne sais pas comment modifié le code pour qu'il cherche soit dans les devis où soit dans les factures

Sub Test()

    Const ssfTous = &H1
    Dim objShell As Object, objFolder As Object, oFolderItem As Object

    'Ici le ThisWorkbook est le chemin de ce fichier
    Chemin = "D:\Facturation-v1s\devis\"

    UserForm1.ListBox1.Clear
    UserForm1.Label1.Caption = Chemin

    Lister 1, UserForm1.Label1.Caption

End Sub

mais le mieux est le fichier

Bonjour,

en supposant que dans ton dossier "Facturations-v1s" il y ai un sous dossier "devis" et un sous dossier "factures".

J'ai rajouté deux optionbutton dans le userform1.

à tester.

bonjour ednoork 8)

un grand merci je n'avais pas pensé aux options buttons ta solution est on ne peux plus parfaite

Pascal