cs_Mcjo
Messages postés403Date d'inscriptiondimanche 12 août 2001StatutMembreDernière intervention 3 septembre 20122 28 nov. 2002 à 03:57
ben
function nom_sans_ext(fichier)
Dim pos
nom_sans_ext = fichier
pos = InstrRev(fichier, ".")
if pos < 1 then
nom_sans_ext = left(nom_sans_ext, pos - 1)
end if