let ask_fichier () =
        let dir = Sys.getcwd () in
        faire ("zenity --file-selection --window-icon=\".monicone.ico\" --title=\"Projet puzzle : ouvrir une instance\" --confirm-overwrite --filename=\""^dir^"/\" > .fichier_choisi.adresse");
                

(** On se place dans le répertoire courant par défaut. *)


        parse_fichier ".fichier_choisi.adresse"