Bonjour,
C'est ça qu'il te faut ?
' Création du fichier d'erreurs
Chemin = App.Path & "\MonFichier.XLS"
Set fso = CreateObject("Scripting.FileSystemObject" )
Set a = fso.CreateTextFile(Chemin, True)
' Titres des colonnes
' chr (34) remplace les guillements à la suite de l'instruction
a.writeLine "C;Y1;X1;K" & Chr(34) & ("Nom" ) & Chr(34)
a.writeLine "C;Y1;X2;K" & Chr(34) & ("Prenom" ) & Chr(34)
Ligne = 2
Do While Not conn.EOF
a.writeLine "C;Y" & Ligne & ";X1;K" & Chr(34) & (conn("NOM" )) & Chr(34)
a.writeLine "C;Y" & Ligne & ";X2;K" & Chr(34) & (conn("PRENOM" )) & Chr(34)
Ligne = Ligne + 1
End If
conn.MoveNext
Loop
a.writeLine "E" ' Fin du codage excel
a.Close