****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de4 génération
** *******************************************************************************************
**  
** Exemple  : EXCEL
** *****************************************************************************************
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
Char : FileExcel:255 := "c:\enduser4gl\4gl\hlp\instructionsExcel\FournisseurIDES.xls";
	integer : i; 
    
 ConnectExcel( FileExcel :  NOVISIBLE); 
 
	GetCountSheetExcel( FileExcel) returning(i); 

		Display " GetCountSheetExcel  ",i, " File :",FileExcel;