Bonjour,
Un truc comme ça ?
chemin= "Recap.XLS"
Set fso = CreateObject("Scripting.FileSystemObject" )
Set Fic = fso.CreateTextFile(chemin, True)
' Titres des colonnes
' chr (34) remplace les guillements à la suite de l'instruction
Fic.writeLine "ID;PWXL;N;E" ' Début du codage excel
Fic.writeLine "C;Y1;X1;K" & CHR(34) & ("Date" ) & CHR(34)
Fic.writeLine "C;Y1;X2;K" & CHR(34) & ("Nom" ) & CHR(34)
Fic.writeLine "C;Y1;X3;K" & CHR(34) & ("Prenom" ) & CHR(34)
Fic.writeLine "E" ' Fin du codage excel
Fic.Close
Set Fic = Nothing
Set fso = Nothing
Y1, Y2, ... = lignes
X1, X2, ... = colonnes