Procedure RequêteVersExcel(sdMaRequete est une Source de Données,sCheminFichierExcel est une chaîne)
xlsExport est un xlsDocument
xlsAjouteFeuille(xlsExport,"Feuille 1")
xlsFeuilleEnCours(xlsExport,1)
sRubriques est une chaîne = HListeRubrique(sdMaRequete)
POUR TOUTE CHAINE sRub,nPos,nColonne DE sRubriques SEPAREE PAR RC
xlsExport[nColonne,1] = sRub
FIN
nLigne est un entier = 2
POUR TOUTE sdMaRequete
POUR TOUTE CHAINE sRub,nPos,nColonne DE sRubriques SEPAREE PAR RC
xlsExport[nLigne,nColonne] = {sdMaRequete..Nom+"."+sRub,indrubrique}
FIN
nLigne ++
FIN
xlsSauve(xlsExport,sCheminFichierExcel