Réponse acceptée !
c'est bon j'ai trouvé la réponse toute seule lol !
donc ben si jamais çà intéresse qq1 de savoir comment on fait.
strDestination = "D:\"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFSText = oFSO.OpenTextFile("d:\points_invalides.asc", 2, True)
Set rs2 = madb.openrecordset("SELECT * FROM POINT")
rs2.MoveFirst
While rs2.EOF = False
'MsgBox (rs2.Fields(0).Value)
temp = rs2.Fields(0).Value
temp2 = rs2.Fields(1).Value
temp3 = rs2.Fields(2).Value
temp4 = rs2.Fields(3).Value
oFSText.writeline temp & ";" & temp2 & ";" & temp3 & ";" & temp4
'oFSText.writeline temp1
rs2.MoveNext
Wend
oFSText.Close
'Shell "d:\points_invalides.asc"
rs2.Close
<b>KISS KISS...</b>