let ecrit_instance_browse_2 mon_instance () =
zenity_info "Donnez un nom de fichier ou ecrire l'instance courante (au format décrit en annexe):";
Resolution.ecriture_instance ~action_confirmation:demande_confirmation_graphique ~file:((ask_fichier ())) ~i:mon_instance