>With Thisform.oComm > If Thisform.pTypeFich <> 3 > ** MULTISELECT > .Flags = 0x200+0x8000 > Endif > .DialogTitle ="Sélection des fichiers " > Do case > case thisform.ptypefich = 1 > .Filter = "Facture IN*.*|IN*.*" > case thisform.ptypefich = 2 > .Filter = "Banque PA*.*|PA*.*" > case thisform.ptypefich = 3 > .Filter = "Liste de prix PL*.*|PL*.*" > Otherwise > .Filter = "All Files *.*|*.*" > endcase > .FilterIndex = Thisform.pTypeFich > .Filename = "" > .InitDir = lInitDir > .ShowOpen > lcFileName = Upper(.Filename) >EndWith>