ExtensionFichier = ""
Position = InStrRev(CheminFichier,".")
If (Position > 0) And (Position < Len(CheminFichier)) Then
	ExtensionFichier = Mid(CheminFichier,Position+1)
	NomFichierSansExtension = Left(CheminFichier,Position-1)
	Description = NomFichierSansExtension
	If Len(Description) > 3 Then Description = Mid(Description, 4)
End If