Bonjour,

Tout d'abord désolé d'avoir posté ce message où il ne fallait pas... :s


Voila j'ai ce type d'erreur :
Unable to close Datastream at U:\Perso\FichierPerlConn_FTP_RegroupRP.pl line 121

et voila le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#/ Parcour des lignes de données \#
 
	$ftp->get("Reliquats.csv");
	open(FIC1,"Reliquats.csv") or die ("Impossible d'ouvrir le fichier\n");	#Ouverture du fichier
 
		while(<FIC1>)
		{			
	#Le split -> Grace a $_ les valeurs $CLIC,$CLIL... sont remises a jour
(my $CLIC,my $CLIL,my $SITE,my $DEPOT,my $NUCMDC,my $INDNUM,my $LICMDC,my $CDART,my $QCMDC,my $QTRSR,my $ETAT,my $PXREF,my $REFCDE,my $DTPGM,my $DTCRT)=split(/;/,$_);
 
             #La requête -> Execution de la requete precedemment preparee avec des valeurs qui changent a chaque changement de ligne
system("pause");
$sth->execute(my $CLIC,my $CLIL,my $SITE,my $DEPOT,my $NUCMDC,my $INDNUM,my $LICMDC,my $CDART,my $QCMDC,my $QTRSR,my $ETAT,my $PXREF,my $REFCDE,my $DTPGM,my $DTCRT)
									or die ("Les valeurs n'ont pu etre inserees : $DBI::errstr\n");
 
		}
 
close(FIC1);
 
$sth -> finish;
$dbh -> disconnect;
$ftp->quit;
Je ne vois vraiment pas pourquoi, je suis passé un peu sur les forums mais je n'ai rien trouvé qui solutionne mon problème

Pour information la ligne 121 est : $ftp->get("Reliquats.csv");

Merci