J'ai etablie le code suivant :

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
23
Set conn=WScript.CreateObject("ADODB.Connection")
    conn.Provider="Microsoft.ACE.OLEDB.12.0"
 
    conn.Open("F:\Develppement Utilitaire\Travails2Validation\un.accdb")
 
    set rs = WScript.CreateObject("ADODB.recordset")
    rs.Open "Select * from Etudiants", conn
 
Chemin = InputBox("Chemin du fichier quand lequel vous voulez le rapport")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(Chemin)
 
 
    do until rs.EOF
 
        objFile.Write(rs.Fields("noetudiant").Value & vbTab)
        rs.MoveNext
    loop
 
    rs.close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing

Mon probleme c'est lorque vien d'Ecrire dans le .txt.

il affiche de facon suivante dans le .txt :

aaa bbb ccc ddd

Moi ce que je veux c'est

aaa
bbb
ccc
ddd

le probleme C'est ici rs.Fields("noetudiant").Value & vbTab
j'ai essayer d'Ecrire objText.ReadLine() mais il ne semble pas accepeter le Readline.