IF lPeutFermer=.F. then MESSAGEBOX(" Il reste des fenêtres ouvertes !!! ",16) NODEFAULT RETURN .F. ELSE RETURN .T. ENDIF