#-----------------------------Sauvegarde---------------------------------------------------------------------------
sub sauve_editor {
    
    
	
  my $save = $mw->getSaveFile(-filetypes => $types, 
                             -initialfile => 'test',
                             -defaultextension => '.txt');
  $nom_fic=$save;
    open(FIC,">$nom_fic");
    print FIC $editortexte->get("1.0","end");
	print FIC $editorrapport->get("1.0","end");
	if ($save)	
		
		{ $mw->messageBox(-icon => info,
                -message => "Votre fichier a bien été sauvegardé",
                -title => "Sauvegarde",
                -type => "OK", 
                -default => 'OK'
				);
		}

	
}