Breno,

try this...

 WITH Myreport
      *-- Passons toutes les sections
      FOR EACH Sect IN .crReport.sections
        *-- Passons tous les objets.( crSubreportObject , crCrossObjects etc...
        FOR EACH rptObject IN Sect.ReportObjects

          IF rptObject.kind = 5 && crSubreportObject...
             DEBUGOUT rptObject.NAME
 
          ENDIF

        ENDFOR

      ENDFOR


    ENDWITH

>Hi,
>
>As I make to know the name of all subreport of mine report.
>
>Thank's