a = Pick Directory("Select a directory");/*Permet de choisir le répertoire d'enregistrement*/
 
 
Multiple File Import(
	<<Set Folder(a),
	<<Set Show Hidden(0),
	<<Set Subfolders(0),
	<<Set Name Filter("*.*;"),
	<<Set Name Enable(0),
	<<Set Size Filter({36287, 36551}),
	<<Set Size Enable(0),
	<<Set Date Filter({3716185811.877, 3734598140.604}),
	<<Set Date Enable(0),
	<<Set Add File Name Column(1),
	<<Set Add File Size Column(0),
	<<Set Add File Date Column(0),
	<<Set Import Mode("CSVData"),
	<<Set Charset("Meilleure supposition"),
	<<Set Stack Mode("Stack Similar"),
	<<Set CSV Has Headers(1),
	<<Set CSV Allow Numeric(1),
	<<Set CSV First Header Line(1),
	<<Set CSV Number Of Header Lines(1),
	<<Set CSV First Data Line(2),
	<<Set CSV EOF Comma(1),
	<<Set CSV EOF Tab(0),
	<<Set CSV EOF Space(0),
	<<Set CSV EOF Spaces(0),
	<<Set CSV EOF Other(""),
	<<Set CSV EOL CRLF(1),
	<<Set CSV EOL CR(1),
	<<Set CSV EOL LF(1),
	<<Set CSV EOL Semicolon(0),
	<<Set CSV EOL Other(""),
	<<Set CSV Quote("\!""),
	<<Set CSV Escape(""),
	<<Set XML Method("guess"),
	<<Set XML Guess("huge"),
	<<Set XML Settings(XML Settings()),
	<<Set JSON Method("guess"),
	<<Set JSON Guess("huge"),
	<<Set JSON Settings(JSON Settings()),
	<<Set Import Callback(Empty())
) << Import Data;
dt = Current Data Table();
 
 
dt << Delete Columns(:"Time (s)"n, :Index, :Current range);
 
dt << New Column("MODALITE",
	Numeric,
	"Continuous",
	Format("Best", 12),
	Formula(Word(1, :File Name, "."))
);
 
dt << Transpose(
	columns(:"WE(1).Current (A)"n),
	By(:MODALITE),
	Label(:"Potential applied (V)"n),
	Output Table("Table transposée")
);
 
dt << Subset(
	By(:MODALITE),
	All rows,
	Selected columns only(0),
	columns(:"Potential applied (V)"n, :"WE(1).Current (A)"n)
);
 
Open("link");
 
Data Table("BASE VOLTAMMO TRANSPOSE") << Concatenate(
	Data Table("Table transposée"),
	Append to first table
);
Close("Table transposée");
 
Data Table("BASE VOLTAMMO TRANSPOSE") << Save("link");