Sub SaveAsTXT()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
Dim Range As Object, Line As Object, Cell As Object
Dim StrTemp As String
Dim Nomfichier As String
Dim chemin As String
Dim Separateur As String
Nomfichier = InputBox("Veuillez entrer le nom de fichier pour la sauvegarde en .txt", "Nom fichier ?")
chemin = ThisWorkbook.Path & "\"
Separateur = " "
Set Range = ActiveSheet.UsedRange
Open chemin & Nomfichier & ".txt" For Output As #1
For Each Line In Range.Rows
StrTemp = ""
For Each Cell In Line.Cells
StrTemp = StrTemp & CStr _
(Cell.Text) & Separateur
Next
Print #1, StrTemp '= " "
Next
Close
With Application
.DecimalSeparator = ","
.ThousandsSeparator = " "
.UseSystemSeparators = True
End With
End Sub
Sub SaveAsTXT()
Dim Range As Object, Line As Object, Cell As Object
Dim StrTemp As String
Dim Nomfichier As String
Dim chemin As String
Dim Separateur As String
Nomfichier = InputBox("Veuillez entrer le nom de fichier pour la sauvegarde en .txt", "Nom fichier ?")
chemin = ThisWorkbook.Path & "\"
Separateur = " "
Set Range = ActiveSheet.UsedRange
Open chemin & Nomfichier & ".txt" For Output As #1
For Each Line In Range.Rows
StrTemp = ""
For Each Cell In Line.Cells
StrTemp = StrTemp & CStr _
(Cell.Text) & Separateur
Next
Print #1, StrTemp '= " "
Next
Close
End Sub
Découvrez ici tout ce qui vous attend dans la nouvelle version du célèbre système d'exploitation.
