#-------------------------message d'erreur chargement texte-------------------------------------------------------------------

sub dialogbox { 

print $group1;
 if( $group1 eq "URL" ) {
		\& lire_url();
		}
if( $group1 eq "Fichier.txt" ) {
		\&lire_File();
		}
 if(!($group1 eq "Fichier.txt")&&!($group1 eq "URL"))
 
 {
		$mw->messageBox(-icon => info,
                -message => "Veuillez sélectionner un type de données",
                -title => "Type de données non spécifié",
                -type => "OK", 
                -default => 'OK'
				);
			
		}
	
}