PROCEDURE Export_to_Excel (Block varchar2,NbrCol number,Nbrlig number) IS
BEGIN
  DECLARE
  	Excel client_OLE2.OBJ_TYPE;
  	WorkBooks client_OLE2.OBJ_TYPE;
  	WorkBook client_OLE2.OBJ_TYPE;  
  	Sheet client_OLE2.OBJ_TYPE;
  	range client_OLE2.OBJ_TYPE;
  	arguments client_OLE2.LIST_TYPE;
  	compteur number := 1;
  	ligne number := 1;
  	dernier number := 0;
  begin
      SYNCHRONIZE; 
  	  Excel := client_OLE2.create_obj('Excel.application');
  	  WorkBooks := client_OLE2.get_obj_property(Excel,'WorkBooks');
  	  WorkBook := client_OLE2.invoke_obj(WorkBooks,'ADD');
  	  Sheet := client_OLE2.get_obj_property(WorkBook,'ActiveSheet');
  	  go_block(block);
  	  last_record;
  	  dernier := :system.cursor_record;
  	  first_record;
  	  set_application_property(CURSOR_STYLE,'BUSY');
  	      while ligne <= Nbrlig 
  	       
  	        LOOP 
  	        arguments := client_OLE2.create_arglist;
  	        client_OLE2.add_arg(arguments,to_number(:system.cursor_record));
  	        client_OLE2.add_arg(arguments,compteur);
  	        range := client_OLE2.get_obj_property(Sheet,'Cells',arguments);
  	        client_OLE2.set_property(range,'Value',:system.current_value);
  	        client_OLE2.destroy_arglist(arguments);
  	        if compteur < Nbrcol then
  	          compteur := compteur + 1 ; 
  	          next_item;
  	        else
  	        	compteur := 1 ; 
  	        	next_record;
  	        	ligne := ligne + 1;
  	        end if;	
  	        end loop;	
  	  set_application_property(CURSOR_STYLE,'DEFAULT'); 
  	  client_OLE2.Invoke(Sheet,'SaveAs');     
  	  client_OLE2.set_property(Excel,'Visible',1);
  	end;
END;