Excel 2003 et fichier xls à passer en txt

Bonjour,
Utilise cette macro:
Il faut selectionner la zone à exporter auparavant et entrer
le chemin complet (ex: c:dossiertest.txt) dans l'inputBox

a noter qu'il est possible d'exporter en CSV avec separateur point virgule et simplement de changer
l'extension CSV en TXT !!!

=========== Sub ExportPointVirgule()
Dim DestFile As String
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer

DestFile = InputBox("Entrez une destination" & _
Chr(10) & "(avec le chemin complet et l'extension):", _
"Séparateur Point virgule")
FileNum = FreeFile()
On Error Resume Next
Open DestFile For Output As #FileNum
If Err <> 0 Then
MsgBox "Entrez une destination " & DestFile
End
End If
On Error GoTo 0
For RowCount = 1 To Selection.Rows.Count
For ColumnCount = 1 To Selection.Columns.Count
Print #FileNum, """" & Selection.Cells(RowCount, _
ColumnCount).Text & """";
If ColumnCount = Selection.Columns.Count Then
Print #FileNum,
Else
Print #FileNum, ";";
End If
Next ColumnCount
Next RowCount
Close #FileNum
End Sub


--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"JMH" <abc@def.gh> a écrit dans le message de news: #vmCHCZ7EHA.3148@TK2MSFTNGP10.phx.gbl...
| Bonjour
|
| J'aimerais transformer un fichier xls en fichier txt avec séparateur ;
|
| Je ne trouve que le format de sortie txt avec Tabulation.
|
| Le seul format qui permet les ; est le csv, mais ce n'est pas ce que je
| recherche.
| Merci d'avance pour vos réponses,
|
| jean-Michel H.
|
|

Salut
Merci pour ta réponse.

"Daniel.j" <nospam_dj.joss@free.fr> a écrit dans le message de news:
O0nh5iZ7EHA.3596@TK2MSFTNGP12.phx.gbl...

Bonjour,
Utilise cette macro:
Il faut selectionner la zone à exporter auparavant et entrer
le chemin complet (ex: c:dossiertest.txt) dans l'inputBox

a noter qu'il est possible d'exporter en CSV avec separateur point virgule
et simplement de changer
l'extension CSV en TXT !!!

=========== > Sub ExportPointVirgule()
Dim DestFile As String
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer

DestFile = InputBox("Entrez une destination" & _
Chr(10) & "(avec le chemin complet et l'extension):", _
"Séparateur Point virgule")
FileNum = FreeFile()
On Error Resume Next
Open DestFile For Output As #FileNum
If Err <> 0 Then
MsgBox "Entrez une destination " & DestFile
End
End If
On Error GoTo 0
For RowCount = 1 To Selection.Rows.Count
For ColumnCount = 1 To Selection.Columns.Count
Print #FileNum, """" & Selection.Cells(RowCount, _
ColumnCount).Text & """";
If ColumnCount = Selection.Columns.Count Then
Print #FileNum,
Else
Print #FileNum, ";";
End If
Next ColumnCount
Next RowCount
Close #FileNum
End Sub


--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"JMH" <abc@def.gh> a écrit dans le message de news:
#vmCHCZ7EHA.3148@TK2MSFTNGP10.phx.gbl...
| Bonjour
|
| J'aimerais transformer un fichier xls en fichier txt avec séparateur ;
|
| Je ne trouve que le format de sortie txt avec Tabulation.
|
| Le seul format qui permet les ; est le csv, mais ce n'est pas ce que je
| recherche.
| Merci d'avance pour vos réponses,
|
| jean-Michel H.
|
|