[Vb] Modification fichier xls

bonsoir

cet exemple permet de transferer les données de la Feuil1 d'un classeur vers un fichier .txt , sans l'ouvrir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub excelVersFichierTexte()
Dim Rs As New ADODB.Recordset
Dim Fichier As String, Feuille As String
Dim xConnect As String, xSql As String
 
Fichier = "C:\Documents and Settings\michel\leClasseur.xls"
Feuille = "Feuil1"
xConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";" & _
        "Extended Properties=Excel 8.0;"
 
xSql = "SELECT * FROM [" & Feuille & "$];"
 
Set Rs = New ADODB.Recordset
Rs.Open xSql, xConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
 
Open "C:\essai.txt" For Output As #1
Do Until Rs.EOF
    Print #1, Rs.GetString(, , ";", vbCrLf, "");
Loop
Close #1
End Sub

bonne soiree
michel