let rec _Generation_Java arbreSyntaxe =
  match arbreSyntaxe with
    [] -> output_string stdout ("Traitement terminé...\n")
  | ce_module::liste_module -> 
      match ce_module.modTyp with
        (nomM, _) ->
          begin
           
            let fichier = open_out (nomM^".java")
            in
            output_string stdout ("Génération du fichier : "^nomM^".java\n");
            try            
              output_string fichier (_Generation_Module_Java ce_module);
              close_out fichier;
              _Generation_Java liste_module; 
            with Cas_impossible ->
              begin
                output_string stdout ("Ce module a été ignoré...\n");
                close_out fichier;
                _Generation_Java liste_module; 
              end
          end