Discussion :

[Little-Freud]

salut à tous

bon ben voila le truc...j'ai besoin de convertir un fichier xls en fichier txt...suivant certains paramètres bien précis

j'ai trouvé sur la FAQ le moyen d'exécuter avec "ShellExecute" mon fichier xls..

cependant j'aurai bien aimé qu'excel ne s'ouver pas, et que le fichier xls soit traité par mon propre petit programme, et que je puisse copié ce dont 'jai besoin...

est ce possible ?

merci par avance

[SilkyRoad]

bonsoir

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

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
 
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