let ecrit_instance_browse 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_value "Donnez un nom de fichier ou ecrire l'instance courante (au format décrit en annexe):" ()) ~i:mon_instance